Porque não consigo fechar o messageDialog???????????????????

Delphi

21/10/2003

Ola galera....

Tenha o seguinte rotina para exibir uma mensagem e não consigo fechar


With CreateMessageDialog(´Aguarde!!!´,mtInformation,[]) do
Begin
Hwnd := Handle;
Width := 200;
Height := 100;
Font.Size := 14;
Font.Color := ClBlue;
BorderIcons := [];
Show;
end;

.................................//Aqui eu faço determinada rotina, e depois eu vou querer fecha-la... só que o comando destroy não funciona!!!

DestroyWindow(Hwnd); // <========

Se alguém puder me ajudar agradeço desde já!!!


Info.wtomfs

Info.wtomfs

Curtidas 0

Respostas

Beppe

Beppe

21/10/2003

Não há a necessidade de usarmos DestroyHandle, uma vez que temos a VCL...

with CreateMessageDialog(´Aguarde!!!´, mtInformation, []) do
try
  Width := 200; 
  Height := 100; 
  Font.Size := 14; 
  Font.Color := ClBlue; 
  BorderIcons := []; 
  Show;
  // outro processamento aqui
finally
  Free;
end;


Ataliba


GOSTEI 0
Marcelo Saviski

Marcelo Saviski

21/10/2003

tente:
ShowWindow(HWnd, SW_HIDE);


GOSTEI 0
Info.wtomfs

Info.wtomfs

21/10/2003

Tem como centralizar o texto desta mensagem?


GOSTEI 0
Adilsond

Adilsond

21/10/2003

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
    MyDialog: TForm;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  MyDialog := CreateMessageDialog(´Aguarde!!!´,mtInformation,[]);
  with MyDialog do
    begin
      FormStyle := fsStayOnTop;
      Width := 200;
      Height := 100;
      Font.Size := 14;
      Font.Color := ClBlue;
      BorderIcons := [];
      Timer1.Enabled := True;
      Show;
    end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
  MyDialog.Close;
  MyDialog.Free;
  MyDialog := nil;
end;

end.



GOSTEI 0
POSTAR