Hi,
ich würde das übergebene Objekt im Clienformular in einer lokalen Variable speichern.
Das könnte so ausschauen:
Delphi-Quellcode:
type
TForm1 = class(TForm)
private
{ Private-Deklarationen }
ClientObject: TClientObject;
public
{ Public-Deklarationen }
procedure pOpenForm(aClientObject: TClientObject);
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{ TForm1 }
procedure TForm1.pOpenForm(aClientObject: TClientObject);
begin
ClientObject := aClientObject;
Show;
end;
Der Aufruf schaut so aus:
Delphi-Quellcode:
with TForm1.Create(Self) do
pOpenForm(myClientObject);