Buscar

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: 2726 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009