Hey!
Ich habe einen Splashscreen in meine Anwendung eingebaut. Ich möchte nun, dass währenddessen auch direkt THauptform.FormCreate ausgeführt wird und erst nach deren Abschließen der Screen geschlossen wird.
Delphi-Quellcode:
procedure TSplash.SetInitializationDone(const Value: Boolean);
begin
FInitializationDone := Value;
Close;
end;
procedure TSplash.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
CanClose := (not Timer1.Enabled) and FInitializationDone;
end;
procedure TSplash.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := False;
Close;
end;
procedure TSplash.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
Splash := nil;
end;