Array
(
)

Mover o Form clicando em um Panel

Chakal_1234
   - 18 jan 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.


#Código


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


E no codigo insira

#Código

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


Obrigado


Paulocesar1301
   - 18 jan 2006

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

const
SC_DRAGMOVE = $F012;
begin
if Button = mbleft then
begin
ReleaseCapture;
Form1.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;
end;


Chakal_1234
   - 18 jan 2006

Funcionou, obrigado.