du musst die
unit unter implementation eintragen (da in die uses, bzw. eine neue uses dort anlegen).
Bei der Deklaration gibst du dann oben TObject als Owner an und überprüfst dann in der funktion ob der typ stimmt.
Delphi-Quellcode:
type
TMyClass1 = class;
public
procedure OwnerSetzen(AOwner: TObject);
end;
implementation
uses
unitMitTMyClass2;
procedure TMyClass1.OwnerSetzen(AOwner: TObject);
var LOwner: TMyClass2;
begin
//Hier ist TMyClass2 dann bekannt, deshalb kannst du jetzt prüfen ob AOwner vom Typ "TMyClass2" ist
if AOwner is TMyClass2 then
begin
LOwner := TMyClass2(AOwner);
//do something with LOwner
end;
end;