Form an Funktion übergeben

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