Fenster beim Öffnen

[sniper_w]

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  wantclose :boolean = false;
  n : integer = 0;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Inc(n);
 if n = 2 then Timer1.Enabled := false;
 if wantclose then close();
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 wantclose := true;
 if n<2 then Action := caNone else Action := caFree;
end;

So geht das...