Hola ozsWizzard.
Otra opción es usando un
TTimer (pestaña System) en Form2.
Form1:
Código Delphi
[-]
...
implementation
uses Unit2;
...
begin
TForm2.ShowForm;
end;
...
Form2:
Código Delphi
[-]
...
TForm2 = class(TForm)
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
public
class procedure ShowForm;
end;
...
implementation
procedure TForm2.FormCreate(Sender: TObject);
begin
Timer1.Enabled := False;
Timer1.Interval := 2000; Timer1.Enabled := True;
end;
class procedure TForm2.ShowForm;
begin
if not Assigned(Form2) then
Form2 := TForm2.Create(nil);
Form2.Show; end;
procedure TForm2.Timer1Timer(Sender: TObject);
begin
Close;
end;
procedure TForm2.FormDestroy(Sender: TObject);
begin
Form2 := nil;
end;
Saludos.