Fórum Gerar um temporizador #328080
25/08/2006
0
Gostaira de criar uma rotina para colocar um temporizador, mas nao gostaria de colocar componentes visuais!
gostaria de colocar um tempo de 3 segundos em uma msg na tela e depois ela se auto fechar!
gostaria de colocar um tempo de 3 segundos em uma msg na tela e depois ela se auto fechar!
Guigosnet
Curtir tópico
+ 0
Responder
Posts
25/08/2006
Marco Salles
entre outras opçoes pode fazer :
procedure TForm1.Button1Click(Sender: TObject); begin Timer1.Enabled := False; //importante. evita efeitos colaterias. Timer1.Interval := 3000; // Tempo que a msg ficará na tela -> 3 Segs Timer1.Enabled := True; MessageBox(Handle, PChar(´Testando MessageBox com tempo pré-definido.´), Pchar(´Titulo´), 8224); end;
procedure TForm1.Timer1Timer(Sender: TObject); begin keybd_event(VK_RETURN,0,0,0); Timer1.Enabled := False; end;
Responder
Gostei + 0
25/08/2006
Fabiano Góes
Marco Salles,
aprofeitando a deixa,
e se ao invés de chamar uma MessageBox criar uma isntancia de um form padra para mensagens ?
aprofeitando a deixa,
e se ao invés de chamar uma MessageBox criar uma isntancia de um form padra para mensagens ?
Responder
Gostei + 0
26/08/2006
Marco Salles
e se ao invés de chamar uma MessageBox criar uma isntancia de um form padra para mensagens ?
sem problema e a implementação disso é relativamente fácil... Mas o guigosnet disse:
nao gostaria de colocar componentes visuais!
então , para ele, a principio esta idéia não serve.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)