Como mover o programa clicando na area principal

Delphi

01/02/2008

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


Yallebr

Yallebr

Curtidas 0

Respostas

Paullsoftware

Paullsoftware

01/02/2008

crie a procedure na seção Private do Form:
    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:


GOSTEI 0
Yallebr

Yallebr

01/02/2008

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


GOSTEI 0
POSTAR