Allgemeigültige Procedure oder Function schreiben

[Christian18]

ok vielne vielen dank diese Variante meine ich. es funktioniert bei mir.

Zitat von alcaeus:

Hi Christian18,

meinst du etwa sowas:

Delphi-Quellcode:

type TForm1 = class(TForm)
  ...
  procedure ZeigeForm(aForm: TForm; aTable: TTable);
end;
...

procedure TForum1.ZeigeForm(aForm: TForm; aTable: TTable);
begin
  aTable.append;
  aForm.caption:='hallo';
  aForm.showmodal;
end;

aufgerufen wird die Funktion dann so: ZeigeForm(Form2, Table1); Ich hoffe dich jetzt richtig verstanden zu haben.

Greetz
alcaeus