Em 11/8/2009 15:55, brunolbra...@yahoo.com.br escreveu:
> Boa tarde!
>
> Seguinte... se eu dou o comando:
>
> showMessage('Teste');
>
> o delphi exibe uma caixa com a msg: Teste na tela e essa msg só sai depois
> que alguém pressionar em OK.
>
> Tem como eu fazer algum comando para essa msg sair automaticamente?
>
> Obrigado!
Do "DicasDelphi.chm".
-------
.
.
.
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled := False;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := True;
ShowMessage('Tchau!');
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
PostMessage(FindWindow('TMessageForm', nil), WM_CLOSE, 0, 0);
Timer1.Enabled := False;
end;
-------
--
Silvio Clecio
