Tutorial: Splash Screens

[Stevie]

Ok, klappt, ich hab's so gemacht:

Code:

implementation

{$R *.dfm}

[color=#008000]uses
  uFormSplash;[/color]

procedure TfrmMain.btnBoahClick(Sender: TObject);
begin
  Close;
end;

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

end.