Dicas - Como impedir que o form seja arrastado para fora das margens da tela

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Veja nesta dica como impedir que o form seja arrastado para fora das margens da tela.

Na seção PRIVATE declare a procedure abaixo:

 

private procedure WMMove(var Msg: TWMMove);

message WM_Move;

 

Abaixo da palavra IMPLEMENTATION escreva a procedure abaixo:

 

procedure TForm1.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;

            

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?