Mensagem com um tempo na tela

Delphi

09/03/2004

Preciso que uma mensagem (ShowMessage) fique por alguns
segundos, na tela e feche automaticamente. Como fazer?

Grato
juarezber@terra.com.br


Juarezber

Juarezber

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

09/03/2004

Tente assim:

Coloque um Timer.
procedure TForm1.Button1Click(Sender: TObject);
begin
   Timer1.Interval:=5000; //5 segundos
   Timer1.Enabled:=True;
   ShowMessage(´Aguarde..´);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   keybd_event(VK_RETURN,0,0,0);
   Timer1.Enabled:=false;
end;



GOSTEI 0
Juarezber

Juarezber

09/03/2004

Deu certo, obrigado Fabio.HC

Abrços
juarezber@terra.com.br


GOSTEI 0
POSTAR