Serververbindung nach FormCreate

[hoika]

Hallo,

procedure TForm2.FormOnActivate;
begin
OnActivate:= nil;

Damit wird das OnActivate nur einmal aufgerufen

[scrat1979]

Doch, das OnActivate eignet sich schon. Ich mache das in meinen Anwendungen auch. Wichtig ist nur ein entsprechendes Flag zu setzen welches nach dem ersten Aufruf gesetzt wird, damit es zukünftig nicht mehr aufgerufen wird.

Pseudocode

Delphi-Quellcode:

Procedure Form1.OnCreate
Begin
 FAppStart := True; // Variable in Form1
End;

Procedure Form1.OnActivate
Begin
 If FAppStart then begin 
//  Hier Initialisierungen etc. ausführen 
 FAppStart := False;

 End;
End;