Mover o Form clicando em um Panel

Delphi

18/01/2006

Boa tarde pessoal, no meu projeto, preciso mover o form clicando em um Panel, pesquisei no forum e nao encontrei nada parecido, somente como mover o proprio panel.

Encontrei este exemplo explicando como mover clicando em um Image, mas não funciona com Panel.


    { 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;


Obrigado


Chakal_1234

Chakal_1234

Curtidas 0

Melhor post

Paulocesar1301

Paulocesar1301

18/01/2006

substitua o begin e o end do evento MouseDown do seu panel e coloque o código abaixo:

[color=green:d862e6f8c7]const
SC_DRAGMOVE = $F012;
begin
if Button = mbleft then
begin
ReleaseCapture;
Form1.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;
end;[/color:d862e6f8c7]


GOSTEI 1

Mais Respostas

Chakal_1234

Chakal_1234

18/01/2006

Funcionou, obrigado.


GOSTEI 0
POSTAR