Form an Funktion übergeben

[cYaONE]

Servus!

Wisst ihr zufällig, wie man ein Form als Parameter an eine Prozedur weitergibt?

So gehts nicht:

Delphi-Quellcode:

procedure Test(Form: TForm);
begin

end;

weil wenn ich ein Form erstelle, wird es von TForm abgeleitet und ist somit nichtmehr von diesem Typ :(

Was kann man da machen?

Danke schonmal!

[Christian Seehase]

Moin cYaONE,

Zitat:

Zitat von cYaONE

weil wenn ich ein Form erstelle, wird es von TForm abgeleitet und ist somit nichtmehr von diesem Typ

Wenn TForm1 von TForm abgeleitet ist, enthält TForm1 alle Eigenschaften und Methoden von TForm, und genau deshalb, kannst Du es genau so machen, wie von Dir beschrieben.
Du kannst nur die in, z.B., TForm1 neu hinzugekommenen Eigenschaften und Methoden nicht direkt ansprechen. Dafür müsstest Du als Typ für den Parameter halt TForm1 angeben.

[cYaONE]

Das Problem ist, das ich zu dieser Zeit nicht weiß, von welchem Typ das Formular ist :(

[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;

[Rumpi]

Ich würds so machen

Delphi-Quellcode:

// TForm2 Unit

procedure TForm2.CallForm1;
begin
  if Assigned( Form1 ) ten
    Form1.Test( Self );
end;


// TForm1 Unit

procedure TForm1.Test(Sender: TObject); 
begin 
  if Assigned( Sender ) and ( Sender is TForm2 ) then
    with TForm2( Sender ) do
    begin
      ...

    end;
end;

mfg Rumpi

[edit=Daniel B]BB-Code eingeschaltet. Mfg, Daniel B[/edit]