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