LIMITAR O FORMULARIO A FICAR DENTRO DA AREA DE TRABALHOPROCEDURE TFMCADEMPRESA.WMMOVE(VAR MSG: TWMM
Código
PROCEDURE TFMCADEMPRESA.WMMOVE(VAR MSG: TWMMOVE);
BEGIN
IF LEFT < 0 THEN
LEFT := 0;
IF TOP < 0 THEN
TOP := 0;
IF SCREEN.WIDTH - (LEFT + WIDTH) < 0 THEN
LEFT := SCREEN.WIDTH - WIDTH;
IF SCREEN.HEIGHT - (TOP + HEIGHT) < 0 THEN
TOP := SCREEN.HEIGHT - HEIGHT;
END;
Publicidade
Vote na dica
Quantidade de votos: 1 voto
Aceitação: 20%
Detalhes da dica
Categoria: Forms
Adicionada dia: 23/03/10
Por: Edi Willian
Visualizada: 2903 vezes
Adicionada dia: 23/03/10
Por: Edi Willian
Visualizada: 2903 vezes
COLUNISTAS
Publicidade
Enquete
O que achou do novo site?
Validações
Publicidade
Enquete
O que achou do novo site?
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009