Evento ao Mover o Form??
É possível implementar este evento? Preciso desabilitar um Timer quando o usuário começar a mover o form e habilitar ao parar de mover.
Obrigado.
Obrigado.
Earmarques
Curtidas 0
Respostas
Dopi
26/05/2004
Realmente fiquei curioso com o tema.... :-)
Reparei que o evento OnCanResize
ocorre varias vezes durante o arrasto do Form...
Em um Form com um Memo fiz varios add´s no memo com o nome de varios eventos do Form...
Exemplo:
procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
begin
Memo1.Lines.Add(´CanResize´) ;
end;
Reparei que o evento OnCanResize
ocorre varias vezes durante o arrasto do Form...
Em um Form com um Memo fiz varios add´s no memo com o nome de varios eventos do Form...
Exemplo:
procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
begin
Memo1.Lines.Add(´CanResize´) ;
end;
GOSTEI 0
Beppe
26/05/2004
Nenhum evento é disparado pelo form. Vc precisa tratar as mensagens por si msm...
http://delphiforum.icft.com.br/forum/viewtopic.php?t=42785&highlight=message
http://delphiforum.icft.com.br/forum/viewtopic.php?t=42785&highlight=message
GOSTEI 0