Tutorial: Splash Screens

[sakura]

Sicher ist sicher, folgende Zeile noch einfügen:

Code:

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  Sleep(1500);
  frmSplash.Label1.Caption := 'Initializing...';
  [color=#008000]frmSplash.Refresh;[/color]
end;

......