GARANTIR DESCONTO

Fórum Mensagem com um tempo na tela #219426

09/03/2004

0

Delphi

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

Grato
juarezber@terra.com.br


Juarezber

Juarezber

Responder

Posts

09/03/2004

Fabio.hc

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;



Responder

Gostei + 0

10/03/2004

Juarezber

Deu certo, obrigado Fabio.HC

Abrços
juarezber@terra.com.br


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar