Sorry omata, ich glaube wir reden aneinander vorbei. Gib mal ein Beispiel für deine Version.
Hier meine:
Delphi-Quellcode:
unit MyClasses;
interface
type
TCustomClass =
class(TCustomControl)
....
implementation
uses CustomPropertyForm;
...
procedure TCustomClass.ShowPropertyForm;
var PropForm : TPropertyForm;
begin
PropForm := TPropertyForm.create(
nil);
PropForm.Item := self;
PropForm.Show;
end;
Delphi-Quellcode:
unit CustomPropertyForm;
interface
uses MyClasses;
type
TPropertyForm =
class(TForm)
...
public
property Item : TCustomClass
read FItem
write SetItem;
...
Gruß oki