Serververbindung nach FormCreate

[scrat1979]

Zitat von Frickler:

Ich nutze für sowas auch gerne ein eigenes Event, welches per PostMessage im OnShow aufgerufen wird:

Delphi-Quellcode:

const
  WM_AFTERSHOW = WM_USER + 50;

type
  TMainForm = class(TForm)
  [...]
  procedure WMAfterShow(var Msg: TMessage); message WM_AFTERSHOW;
  [...]
  end;

procedure TMainForm.FormShow(Sender: TObject);
begin
  [...]
  PostMessage(Handle, WM_AFTERSHOW, 0, 0);
end;

procedure TMainForm.WMAfterShow(var Msg: TMessage);
begin
  MachWasImmerGetanWerdenMuss;
end;

Sieht - ohne Frage - sehr elegant aus. Aber was hat das Feuern dieses Events für einen Benefit statt direkt im OnShow-Event die entsprechenden Schritte (statt Postmessage) durchzuführen? Nach meinem Verständnis kommt es genau auf dasselbe raus. Es sei denn es passiert noch „etwas“ anderes.

[Redeemer]

Noch eine Alternative:

Timer nehmen mit Intervall 1. Erste Aktion im Timer-Event ist das Deaktivieren des Timers, dann Verbindung herstellen.

[himitsu]

Das OnShow wird nicht blockiert und die dranhängenden Funktionen laufen erstmal vollständig durch.
Wobei man so ein Event aber auch ins Create/OnCreate machen könnte,

Nja, Timer find ich immer bissl unpraktisch.

Delphi-Quellcode:

procedure TMainForm.FormShow(Sender: TObject);
begin
  TThread.ForceQueue(nil, procedure
    begin
      MachWasImmerGetanWerdenMuss;
    end);
end;

Funktionell das Gleiche wie PostMessage und Timer.