SplashScreen erst nach Button ausblenden und Anwendung start

[Taladan]

Hallo. Ich habe einen SplashScreen. Dieser soll aber erst nach nach einen gewissen Zeitpunkt sich schließen (ca. 10 sec) und dann auch nur über einen OK Button. Erst dann soll das Hauptprogramm gestartet werden. Doch leider ploppt der Splashscreen selbst für mich kaum sichtbar (und ich weiß, das es ihn gibt) auf und ist dann verschwunden. Dieser scheint auch erst auf zu ploppen, wenn die Hauptform onScreen ist.
Grund: Der Lizenzgeber erlaubt die freie Nutzung der Daten, jedoch nur mit einen gut Sichtbaren CopyRight. Als Beispiel wird ein Ginweiß auf einen SplashScreen genannt.

Hier meine Startroutine:

Delphi-Quellcode:

    // SplashScreen Fenster erstellen
    SplashScreenForm := tSplashScreenForm.Create (Application);
    SplashScreenForm.Show;
    SplashScreenForm.Update;
    // SplashScreen Fenster anzeigen
    Application.Initialize;
    Application.CreateForm(TMainForm, MainForm);
    Application.CreateForm(TAboutBox, AboutBox);
    // SplashScreen Fenster ausbelenden
    SplashScreenForm.Hide;
    SplashScreenForm.Release;
    // SplashScreen Fenster freigeben
    Application.Run;

Und hier mein SplashScreen.OnShow

Delphi-Quellcode:

procedure TSplashScreenForm.FormShow(Sender: TObject);
var s : string;
begin
  inherited;
  GetDir(0, s);
  Label1.Caption:= 'Suche nach Unterverzeichnissen';
  s := s + '\Data';
  if DirectoryExists(s) = false then mkdir('\data');
  s:= s+'\';
  Label1.Caption := 'Unterverzeichnisse gefunden.';
  if FileExists(s+'Namen.tdt') then
  begin
    Label1.Caption := 'Lade Datenbank: Namen';
    NamenList := TMyObjectList.Create;
    NamenList.LoadFromFile(s+'Namen.tdt');
  end else begin
    Label1.Caption := 'Erstelle Datenbank: Namen';
    NamenList := TMyObjectList.Create;
    NamenList.SaveToFile(s+'Namen.tdt');
  end;
end;

[fkerber]

Hi!

Dann bau doch ein Delay ein.


Ciao Frederic

[SirThornberry]

dann mach anstelle von

Delphi-Quellcode:

SplashScreenForm.Show;

einfach

Delphi-Quellcode:

SplashScreenForm.ShowModal;

und auf das SplashForm packst du einen Timer der den Schließen Button erst nach 10 Sekunden enabled

[Taladan]

Delphi-Quellcode:

SplashScreenForm.ShowModal;

Das war auch ursprünglich mein gedanke, aber ich bekomme immer einen Laufzeitfehler.

Edit: Aus eienn sichbaren Fenster kann kein Modales gemacht werden, oder so ähnlich kommt da immer

[SirThornberry]

das liegt dann wohl daran das das fenster zu dem Zeitpunkt schon sichtbar ist. Also solltest du das Property Visible auf False setzen (im Objectinspektor). Wenn der Fehler dann trotzdem noch ist musst du visible eben auf False setzen, danach am besten noch ein Application.ProcessMessages und dann sollte ShowModal auch funktionieren

[Taladan]

Danke. Das funzt.