Serververbindung nach FormCreate

[DeddyH]

Delphi-Quellcode:

procedure TDingensForm.OnActivate(Sender: TObject);
begin
  if not Verbunden then
    begin
      Verbinde;
      Verbunden := true;
    end;
end;

Damit kann das Ereignis so oft feuern, wie es will, Verbinde wird nur einmal ausgeführt.

[lukdelphias]

Delphi-Quellcode:

procedure TForm1.FormOnActivate;
begin
   LEdtMA.ReadOnly := true;
   LEdtAS.ReadOnly := true;
end;

zum testen habe ich das erstmal so geschrieben. Allerdings kann ich in den Textfelder die ganze Zeit schreiben. Heißt die procedure wird nicht ausgeführt. Aber warum?

[mikhal]

Öffne mal Notepad auf deinem Rechner und schiebe es über dein Programmfenster, wenn du es wieder wegziehst, sollte OnActivate gefeuert werden.

On Activate wird möglicherweise gefeuert bevor deine Editfelder erzeugt wurden...

Grüße
Mikhal

[lukdelphias]

Funktioniert jetzt. Vielen Dank an alle!

Gruß