Mover form
Com faço para mover a forme clicando em qualquer local desta?
Jonnymarques
Curtidas 0
Respostas
Maicongabriel
12/12/2003
No [b:e9822c2341]public[/b:e9822c2341] do form insira
E no codigo 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
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
Obrigado
GOSTEI 0