Form - Movendo sem barra de titulo

Top  Previous  Next

// Para movimentar uma form sem barra de título, 

// deve-se tratar a mensagem WM_NCHITTEST, desta maneira: 

 

type 

  TForm1 = class(TForm) 

  public 

    procedure WMNCHitTest(var M: TWMNCHitTest); message WM_NCHitTest; 

  end

 

var 

  Form1: TForm1; 

 

implementation 

 

{$R *.DFM} 

 

procedure TForm1.WMNCHitTest(var M: TWMNCHitTest); 

begin 

  inherited; 

  if M.Result = htClient then {se o mouse foi clicado na form} 

    M.Result := htCaption; {faz o Windows pensar que foi na barra de título} 

end