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
