Fórum Messagem! #189351

  private
    { Private declarations }
    Hwnd: THandle;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  with CreateMessageDialog(´Teste de mensagem´,mtInformation,[mbOK]) do
    begin
      Hwnd := Handle;
      Show;
    end;
  Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
  DestroyWindow(Hwnd);
end;