Travar formulário

Delphi

30/04/2004

Olá pessoal da lista.
Alguém pode me indicar um jeito simples de impedir que um formulario possa ser movido na tela? No caso uso o Delphi 7 e o formulário é bsSingle.
Desde já agradeço

:wink:


Rodsrabbit

Rodsrabbit

Curtidas 0

Respostas

Beppe

Beppe

30/04/2004

Isto vai no private do seu form:
procedure WMMoving(var Message: TWMMoving); message WM_MOVING;
procedure WMWindowPosChanging(var Message: TWMWindowPosChanging); message WM_WINDOWPOSCHANGING;


Em implementation:
procedure TForm1.WMMoving(var Message: TWMMoving);
begin
  // processa a mensagem de arrasto
  Message.DragRect^ := BoundsRect;
end;

procedure TForm1.WMWindowPosChanging(var Message: TWMWindowPosChanging);
begin
  // responsável por ajustar a posição final, antes q seja movida
  Message.WindowPos.x := Left;
  Message.WindowPos.Y := Top;
  Message.Result := 0;
end;



GOSTEI 0
POSTAR