Ich habe fertig, Sie können loslegen...
Ein anderer, hin und wieder gesehener Weg ist es, den User den Splash-Screen manuell ausblenden zu lassen. Sei es, um auf ShareWare Konditionen hinzuweisen oder um ihn einfach zu ärgern
Der Weg ist ähnlich dem vorhergehenden, allerdings brauchen wir keinen Timer.
Dazu benötigen wir wieder eine Variable, welche den Status des allgemeinen Ladevorganges sichert.
Delphi-Quellcode:
type
TfrmSplash = class(TForm)
...
private
{ Private declarations }
FInitializationDone: Boolean;
procedure SetInitializationDone(const Value: Boolean);
...
public
{ Public declarations }
property InitializationDone: Boolean read FInitializationDone write SetInitializationDone;
...
end;
procedure TfrmSplash.SetInitializationDone(const Value: Boolean);
begin
FInitializationDone := Value;
if Value then
begin
btnStart.Enabled := True;
btnStart.Cursor := crHandPoint;
end else begin
btnStart.Enabled := False;
btnStart.Cursor := crHourGlass;
end;
end;
Sobald die Initialisierung beendet ist, kann der User über einen Schalter das Formular schliessen. Dieser sollte im Objekt Inspektor standardmäßig
Enabled auf
False gesetzt sein
In das OnClick-Ereignis des Buttons wird noch folgender Code geschrieben.
Delphi-Quellcode:
procedure TfrmSplash.btnStartClick(Sender: TObject);
begin
Close;
end;
Fertig. Der Rest im nächsten Abschnitt.
...
...