Mover form

Question

Com fa�o para mover a forme clicando em qualquer local desta?...

Maicongabriel · Answer

No [b:e9822c2341]public[/b:e9822c2341] do form insira

    { Public declarations }
    procedure WMNChitTest(var M: TWMNchitTest); message WM_NCHITTEST;

E no codigo insira

procedure TFormPrincipal.WMNChitTest(var M: TWMNchitTest);
begin
  inherited;
  if M.result = htclient then
  M.result := htCaption;
end;

Chakal_1234 · Answer

Desculpe desenterrar o post pessoal, mas tentei a mesma coisa com o Panel e n�o funcionou, gostei deste exemplo, porque o codigo � bem leve, ser� que n�o tem uma solu��o simples para o panel tbm?

Obrigado