Tutorial: Splash Screens

[sakura]

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.

......