Oncreate beenden und function aufrufen (ohne TTimer)

[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 von günni0:

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