Fórum Porque não consigo fechar o messageDialog??????????????????? #189927

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

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.