Hallo,
ich benutzte diese tolle Tutorial auch als Grundlage für meinen Splash-Screen,
ich habe noch einen kleinen Vorschlag dazu:
Code:
begin
frmSplash := TfrmSplash.Create(Application);
try
[b] frmSplash.InitializationDone := False; [/b]
frmSplash.Show;
frmSplash.Refresh;
Application.Initialize;
Application.CreateForm(TfrmMain, frmMain);
// (1)
// weitere Formulare und Datenmodule hier her verschieben (siehe 2)
finally
frmSplash.InitializationDone := True;
end;
// (2)
// Standardmäßig erstellte Formulare wird Delphi hier eintragen
// nach (1) verschieben !!!
Application.Run;
end.
Damit wird der Cursor zum Stundenglas und der Start-Button disabled.