Anzeigen Programm wird geladen.

[hbr]

Hallo Forum,
Ein Programm wird geladen, viele Funktionen(Internet Versionsabfrage usw.) werden in FormCreate abgearbeitet was unter Umständen lange dauert bis die Form sichtbar wird.
Es dreht sich unter Windows keine Eieruhr die mir anzeigt dass das Programm geladen wird.
Wie kann ich nun eine Anzeige Realisieren, die mir das Laden des Programms anzeigt?
Dieser Funktionsaufruf müsste in der FormCreate an erste Stelle stehen.
Ich habe schon Versucht zuerst eine Andere Form auf zurufen, die dann die Hauptform aufruft.
Leider erscheinen beide Formen gleichzeitig.
Wie könnte ich das Realisieren?

Für Antworten wäre ich dankbar.

Gruß

[compmgmt]

Die Funktionen des Ladens (Versionsabfrage etc.) in einen anderen Thread auslagern. Dazu hier mehr: http://wiki.freepascal.org/Multithreade ... utorial/de

[Warf]

Die Funktionen des Ladens (Versionsabfrage etc.) in einen anderen Thread auslagern. Dazu hier mehr: http://wiki.freepascal.org/Multithreade ... utorial/de

Viel zu kompliziert. Einfach einen Splashscreen erzeugen, ein Formular erstellen auf dem irgendwas zu sehen ist. Dann in deinem Hauptformular eine neue Methode hinzufügen die einen Parameter des Typs IntPtr entgegen nimmt, und dort zunächst dein Main Formular Unsichtbar machen (Hide) und deinen Splashscreen sichtbar machen (dann noch ein ProcessMessages dazu). Danach dort den Ladevorgang implementieren, und am ende den Splashscreen schließen und das Hauptvormular sichtbar machen. In der OnCreate einfach dann

Code: Alles auswählen

  Application.ShowMainForm := False;
  Application.QueueAsyncCall(@ShowStartupScreen, 0);

einfügen (ShowStartupScreen natürlich mit dem Namen deiner Methode ersetzen).

Beispiel aus einem meiner Projekte (auch wenn es nicht ganz das selbe ist):
Link und Link

[hbr]

Die Funktionen des Ladens (Versionsabfrage etc.) in einen anderen Thread auslagern. Dazu hier mehr: http://wiki.freepascal.org/Multithreade ... utorial/de

Muss man das machen?

Einfach einen Splashscreen erzeugen,

Was ist Das, Splashscreen?

Das sieht sehr Kompliziert aus.

[compmgmt]

Die Funktionen des Ladens (Versionsabfrage etc.) in einen anderen Thread auslagern. Dazu hier mehr: http://wiki.freepascal.org/Multithreade ... utorial/de

Muss man das machen?

Einfach einen Splashscreen erzeugen,

Was ist Das, Splashscreen?

Das sieht sehr Kompliziert aus.

Das mit dem extra Thread ist optional.

Wenn du Lazarus startest, kommt doch jedes mal ein kleiner rechteckiger Bildschirm, auf dem der Leopard zu sehen ist + Lazarus-Version und danach kommt erst die eigentliche IDE. Dieses kleine Fenster ist ein Splashscreen. Und es ist einfacher als einen extra Thread zu erzeugen.

EDIT: Rechteckiges Fenster, nicht Rechteckiger Bildschirm

[Mathias]

Was ist Das, Splashscreen?

ZB. das blauen Fenster das man kurz sieht, wen mal Lazarus startet.

[hbr]

Was ist Das, Splashscreen?

ZB. das blauen Fenster das man kurz sieht, wen mal Lazarus startet.

Es ist also kein Formular, Anwendung, Frame?

Wie Erzeugt man ein Splashscreen und wo?

[Warf]

Und es ist einfacher als einen extra Thread zu erzeugen.

Warum sollte es einfacher sein eine Thread Klasse zu erstellen, und sich mit allen Problemen von Multithreading auseinander zu setzen statt einfach es single Threaded zu machen wie ich es vorgeschlagen habe? Ich meine wenn er es multithreded implementieren würde, würde der Main Thread letzendlich auch nur idlen und somit unnötig Rechenzeit für reine warten beanspruchen. Noch dazu kommt dass für Threading man eine eigne Klasse schreiben muss während für die single thread Lösung nur eine Methode benötigt wird. Außerdem ist Multithreading in keinster weise einfach für einsteiger. Man muss wissen wie sich Thread Stacks verhalten, wie man mit Sperren arbeitet, wie man Deadlocks vermeidet, wie man am besten Synchronisiert, etc..

Also Single threaded ist 1. performanter, 2. Kürzer (und einfacher) und 3. benötigt deutlich weniger Fachwissen 4. Das Resultat ist nicht schlechter. Warum genau ist Multithreading dann besser?

Was ist Das, Splashscreen?

ZB. das blauen Fenster das man kurz sieht, wen mal Lazarus startet.

Es ist also kein Formular, Anwendung, Frame?

Wie Erzeugt man ein Splashscreen und wo?

Schlicht weg ein Formular mit Position Screen Center und Borderstyle none

[compmgmt]

Und es ist einfacher als einen extra Thread zu erzeugen.

Warum sollte es einfacher sein eine Thread Klasse zu erstellen, und sich mit allen Problemen von Multithreading auseinander zu setzen statt einfach es single Threaded zu machen wie ich es vorgeschlagen habe? Ich meine wenn er es multithreded implementieren würde, würde der Main Thread letzendlich auch nur idlen und somit unnötig Rechenzeit für reine warten beanspruchen. Noch dazu kommt dass für Threading man eine eigne Klasse schreiben muss während für die single thread Lösung nur eine Methode benötigt wird. Außerdem ist Multithreading in keinster weise einfach für einsteiger. Man muss wissen wie sich Thread Stacks verhalten, wie man mit Sperren arbeitet, wie man Deadlocks vermeidet, wie man am besten Synchronisiert, etc..

Und es ist einfacher als einen extra Thread zu erzeugen.

Eben, der Splashscreen ist einfacher.

[Mathias]

Wie Erzeugt man ein Splashscreen und wo?

ZB. so:

Code: Alles auswählen

var
  F: TForm;
 
begin
  F := TForm.Create(nil);
  F.Show;
 
  RequireDerivedFormResource := True;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Sleep(3000); // nur für Test
  F.Close;
  F.Free;
  Application.Run;
end. 

[Warf]

Und es ist einfacher als einen extra Thread zu erzeugen.

Warum sollte es einfacher sein eine Thread Klasse zu erstellen, und sich mit allen Problemen von Multithreading auseinander zu setzen statt einfach es single Threaded zu machen wie ich es vorgeschlagen habe? Ich meine wenn er es multithreded implementieren würde, würde der Main Thread letzendlich auch nur idlen und somit unnötig Rechenzeit für reine warten beanspruchen. Noch dazu kommt dass für Threading man eine eigne Klasse schreiben muss während für die single thread Lösung nur eine Methode benötigt wird. Außerdem ist Multithreading in keinster weise einfach für einsteiger. Man muss wissen wie sich Thread Stacks verhalten, wie man mit Sperren arbeitet, wie man Deadlocks vermeidet, wie man am besten Synchronisiert, etc..

Und es ist einfacher als einen extra Thread zu erzeugen.

Eben, der Splashscreen ist einfacher.

Manchmal bin ich zu dumm zum lesen
Das kommt davon wenn man zu viel C an einem Tag programmiert, man wird Dumm

[hbr]

Irgendwie funktioniert es nicht,

Application.QueueAsyncCall(@ShowMeineForm, 0);

Gibt Fehlermeldung:
FrmMain.pas(2410,43) Error: Incompatible type for arg no. 1: Got "Pointer", expected "<procedure variable type of procedure(LongInt) of object;Register>"