Fórum Como mover o programa clicando na area principal #352900
01/02/2008
0
Olá Pessoal,
QUal o codigo que permite eu clicar no meio do meu programa e mover ele para um lado e para outro como se tivesse clicando no barra de tarefas mesmo?
Obrigado
QUal o codigo que permite eu clicar no meio do meu programa e mover ele para um lado e para outro como se tivesse clicando no barra de tarefas mesmo?
Obrigado
Yallebr
Curtir tópico
+ 0
Responder
Posts
02/02/2008
Paullsoftware
crie a procedure na seção Private do Form:
depois digite o código abaixo e compile a aplicação!
espero ter ajudado!!! :wink:
procedure MoveForm(var M: TWMNCHitTest); message wm_NCHitTest;
depois digite o código abaixo e compile a aplicação!
procedure TForm1.MoveForm(var M: TWMNCHitTest);
begin
inherited; { ativa a herança da mensagem }
if M.Result = htClient then { o clique foi na área cliente? }
M.Result := htCaption; { se sim, faz o Windows pensar que foi no Caption. }
end;espero ter ajudado!!! :wink:
Responder
Gostei + 0
06/02/2008
Yallebr
Olá Amigo,
funcionou para mover. Mas meu botões pararam de funcionar também. Tem como os botões continuar habilitados e fazer isso?
Obrigado
funcionou para mover. Mas meu botões pararam de funcionar também. Tem como os botões continuar habilitados e fazer isso?
Obrigado
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)