Gerar um temporizador

Delphi

25/08/2006

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!


Guigosnet

Guigosnet

Curtidas 0

Respostas

Marco Salles

Marco Salles

25/08/2006

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;



GOSTEI 0
Fabiano Góes

Fabiano Góes

25/08/2006

Marco Salles,

aprofeitando a deixa,

e se ao invés de chamar uma MessageBox criar uma isntancia de um form padra para mensagens ?


GOSTEI 0
Marco Salles

Marco Salles

25/08/2006

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.


GOSTEI 0
POSTAR