Form an Funktion übergeben

[Christian Seehase]

Moin cYaONE,

welche Typen möglich sind ist Dir doch bekannt, oder?
Dann könntest Du in der Prozedur den Typ abfragen, falls Du die bestimmten Bestandteile eines abgeleiteten Forms brauchst, oder Du gibst Dich mit den Möglichkeiten der Basisklasse zufrieden.

Nur mal so als Beispiel und ungetestet.

Delphi-Quellcode:

var
  f1 : TForm1;
  f2 : TForm2;
//...

begin
  f1 := nil;
  f2 := nil;
  //...
  if Form is TForm1 then begin
    f1 := Form as TForm1;
  end;
  //...
  if f1 <> nil then begin
    f1.Button1.Enabled := true;
  end;
end;