Mover o formulário

 

Para mover o formulário quando clicar em qualquer parte, sem ser apenas pela barra de título, adicione o seguinte código na seção public do formulário:

 

procedure WMNChitTest(var M: TWMNchitTest);

  message WM_NCHITTEST;

 

E implemente-o com o seguinte código:

 

inherited;

if M.result = htclient then

  M.result := htCaption;

 

Rode a aplicação e clique no “corpo” do formulário para arrastá-lo.

 

Luciano Pimenta®

Editor do Portal ClubeDelphi.Net

webeditor@clubedelphi.net

www.clubedelphi.net