Mover form

12/12/2003

1

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


Responder

Posts

12/12/2003

Maicongabriel

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;



Responder

18/01/2006

Chakal_1234

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


Responder