Oncreate beenden und function aufrufen (ohne TTimer)

[2Knuckels]

Gibt es eine Möglichkeit nach dem Durchlauf der OnCreate Funktion eine andere Funktion aufzurufen aber OnCreate formal zu beenden. (und das ohne Timer zu benutzen)
(Umgebung: Win, XE10, VCL App)

procedure TForm1.FormCreate(Sender: TObject);
begin
Befehl1;
Befehl2;
....
"Aufruf einer neuen Funktion";

end;

-> und jetzt sollte FormCreate als Funktion beendet werden

function "Aufruf einer neuen Funktion";
begin
Befehl1;
Befehl2;
....
end;


so wie es oben geschrieben ist bleibt FormCreate bis zum Ende die ausführende Funktion und die andere Funktion wird nur als Unterfunktion aufgerufen, und das soll nicht so sein.

Kann man evtl. einen Win Handle verwenden um nach dem FormCreate beendet ist eine neue Funktion aufzurufen?
Bin für jeden Vorschlag Hilfe offen. (Wie man das mit einem Timer umsetzt ist bekannt, nur so würde ich das nur ungern lösen)

[Zacherl]

Es gibt eine virtuelle

Delphi-Quellcode:

procedure AfterConstruction

, die du überschreiben kannst. Die wird unmittelbar nach dem

Delphi-Quellcode:

Create

aufgerufen. Für Fenster im Speziellen könnte

Delphi-Quellcode:

OnShow

oder eins der anderen Post-Create Events auch eine Möglichkeit sein.

[2Knuckels]

Danke für den Tip mit OnShow, muss ich testen (wäre extrem einfach)

[himitsu]

In "halbwegs" neueren Delphis ist seit paar Jahren/FastJahrzehnten das TForm.OnCreate im AfterConstruction
und früher war es im Create.

Oder selber eine Ereignismethode erstellen, also für WM_USER+x und dann am Ende des Create, OnCreate oder OnShow per PostMessage anstoßen. (nur ein einfacher Call, anstatt einem goßen Timer)
http://www.cryer.co.uk/brian/delphi/...ow_message.htm

[günni0]

Zitat:

so wie es oben geschrieben ist bleibt FormCreate bis zum Ende die ausführende Funktion und die andere Funktion wird nur als Unterfunktion aufgerufen, und das soll nicht so sein.

Eventuell ein TTask, anonymer Thread o.ä. ? Dann ginge es direkt weiter und bliebe nicht in OnCreate hängen.

[2Knuckels]

Sorry Onshow klappt nicht.

Hab das kurz mit ShowMessage getestet und das wird aufgerufen noch bevor man das Form sieht.
Ich suche quasi etwas was eine "Main" Funktion aufruft in der dann das Programm die ganze Zeit läuft.

Werde es mit dem "WM_USER+x" testen (Danke)

[Zacherl]

Ja, das geht dann wohl tatsächlich eher in Richtung Threads/Tasks. Ist leider kein ganz einfaches Thema.

[himitsu]

Zitat:

Zitat von günni0 (Beitrag 1398985)

Eventuell ein TTask, anonymer Thread o.ä. ? Dann ginge es direkt weiter und bliebe nicht in OnCreate hängen.

Es gibt TThread.Queue aber gerade vom Hauptthread aus arbeitet das IMHO falsch. (von der Semantik her wäre es aber richtig gewäsen)
TThread.Queue

Aber https://www.delphipraxis.net/179193-...der-queue.html

[günni0]

Doppelt.

[himitsu]

Hier der Grund für das Wofür

Zitat:

Zitat von 2Knuckels (Beitrag 1398986)

Hab das kurz mit ShowMessage getestet und das wird aufgerufen noch bevor man das Form sieht.
Ich suche was quasi etwas was eine "Main" Funktion aufruft in der dann das Programm die ganze Zeit läuft.

Das wäre dann wohl Thread/Task die geeignetere Lösung
oder das Konzept auf Message/Event-bassiert ändern und den Spaghetti Code auftrennen.

[günni0]

Zitat:

Hab das kurz mit ShowMessage getestet und das wird aufgerufen noch bevor man das Form sieht.

Dann mach es so

Delphi-Quellcode:

const
 WM_FORM_VISIBLE = WM_USER + 1;

private
 FormInitialised: Boolean;
 procedure WMFormVisible(var msg: TMessage); message WM_FORM_VISIBLE;
end;

implementation

procedure TForm1.WMFormVisible(var msg: TMessage);
begin
 >>> hier deine showmessage zum testen <<< // Wird erst verarbeitet, wenn das Formular sichtbar ist. Aber meiner Meinung nach sollte man sich nicht von irgendwelchen Sichtbarkeiten abhängig machen.
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
 if not FormInitialised then
  begin
   FormInitialised := True;
   PostMessage(Form1.Handle, WM_FORM_VISIBLE, 0, 0);
  end;
end;

[2Knuckels]

Vielen Dank für Euere Antworten:

Habe das mit dem Win Message gelöst und funktioniert genau wie ichs mir vorgestellt habe:
anbei in Kurzvorm wie das gelöst habe.

const WM_APP_launch_main = WM_USER + 8; // WIN - set message handler for launch of form
type procedure OnMyMessage(var Msg: TMessage); message WM_APP_launch_main; // DECLARE message function

procedure FormCreate
...
PostMessage(self.Handle,WM_APP_launch_main,0,0); // SEND message that create is done
end;

procedure Tform8.OnMyMessage(var Msg: TMessage);
begin
.....
end;

[günni0]

Ich bin mir nicht sicher aber ich glaube das ist nur Glück, dass deine Showmessage angezeigt wird wenn das Formular sichtbar ist.
Meine Version oben wäre die sicherere Variante.

[2Knuckels]

Ja Dein Vorschlag klappt auch.
Mir ging es primär nicht um die Sichtbarkeit sondern das ich eine abgeschlossene Initialisierung aller Parameter des Forms haben will und dann der eigentliche Main Loop abgearbeitet wird.
Man muss sich das wie ein "Old-School" Programm vorstellen. Alles soll der Reihe nach abgearbeitet werden und an den Stellen an denen Loops gebraucht werden, werden die aufgerufen.
Gegen einen generellen Timer spricht das in der Hauptroutine drei Netzwerk typen gleichzeitig miteinander kommunizieren müssen, weshalb in den loops keine fixen timer verwendet werden, sondern nur geprüft wird ob eine gewisse Zeitspanne bereits verstrichen ist.
und Dank Eurer Hilfe bin diesen "hässlichen" ttimer zum aufrufen des main losgeworden.

[günni0]

Zitat:

Main Loop

Ich denke du solltest dich, wenn du mit Delphi arbeiten möchtest, von dem Wort Main Loop trennen.
Was du meinst ist der Main-Thread. Wirklich vergleichbar mit einer Main-Methode von C oder Java ist das nicht.

[himitsu]

Zitat:

Zitat von günni0 (Beitrag 1399079)

Wirklich vergleichbar mit einer Main-Methode von C oder Java ist das nicht.

Das wäre das BEGIN bis END in der Projektdatei.

Aber auch in C/Java lässt man dort bestimmt nicht stundenlang einen Spaghetti-Code durchleiern.

[2Knuckels]

Nicht umgewöhnen, aber ich arbeite einen 30 Jahre alten Pascal Code um, und die Infrastruktur (Roboter, Sensoren) ist genauso alt, bleibt aber erhalten, weswegen ich nicht so weit weg vom Uursprünglichen Ablauf will. (ausserhalb von Industrie 4.0 gibts auch noch Prüfstände die teilweise mit MS-Dos laufen, auf PCs mit 10 MB Festplatte). Im Prinzip könnte man das alles noch in TP schreiben (RS485, TCP, IEEE gabs alles damals schon).

Aber Danke für den support