Tutorial: Splash Screens

[Svenkan]

Dankeschön!
Jetzt kommt mir nur grad eins etwas seltsam vor....
Ich kann den SplashScreen nicht schließen. oO
Weder über das 'X', noch über nen Close-Button. oO
Es passiert einfach nix, wenn ich draufklicke...
Und autom. tut sich auch nix.
Der OnClose-Befehl wird ausgeführt, hab ich grad mal gemerkt.
Es wird einfach nix geclosed.

Hier mal noch der Code des Splash-Forms:

Delphi-Quellcode:

unit Unit4;

interface

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

type
  TSplash = class(TForm)
    Timer1: TTimer;
    Image1: TImage;
    Label1: TLabel;
    Button1: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);

  private 
    { Private declarations } 
    FInitializationDone: Boolean; 
    procedure SetInitializationDone(const Value: Boolean);
  public 
    { Public declarations } 
    property InitializationDone: Boolean read FInitializationDone write SetInitializationDone;
  end;


var
  Splash: TSplash;

implementation

uses Unit1;

{$R *.dfm}

procedure TSplash.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
  close;
end;

procedure TSplash.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 CanClose := (not Timer1.Enabled) and FInitializationDone;
end;

procedure TSplash.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  Splash := nil;
  Form1.Enabled := True;
end;

procedure TSplash.SetInitializationDone(const Value: Boolean);
begin
  FInitializationDone := Value;
  close;
end;

procedure TSplash.Button1Click(Sender: TObject);
begin
close;
end;

end.