Mover form

Delphi

12/12/2003

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


Jonnymarques

Jonnymarques

Curtidas 0

Respostas

Maicongabriel

Maicongabriel

12/12/2003

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;



GOSTEI 0
Chakal_1234

Chakal_1234

12/12/2003

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


GOSTEI 0
POSTAR