Messagem!

Delphi

17/10/2003

Olá pessoal gostaria de saber se tem como fazer aparecer uma messagebox na tela e ficar so alguns segundos e fechar sozinha sem ter que apertar no botao ok...

tipo slep(500) msg ok hehhehe exemplo besta mas blz :lol:

obrigado...


Zacca

Zacca

Curtidas 0

Respostas

Adilsond

Adilsond

17/10/2003

  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;



GOSTEI 0
POSTAR