Oncreate beenden und function aufrufen (ohne TTimer)

[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.

[günni0]

Doppelt.

[himitsu]

Hier der Grund für das Wofür

Zitat von 2Knuckels:

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;

[himitsu]

Zitat von günni0:

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