danke leider kann ich aber irgendwie nicht beim TComponent die Eigenschaft ansprechen, muss ich in der Hierarchie höher gehen?
Delphi-Quellcode:
constructor TMyObject.Create(AOwner: TComponent; aImage : TImage; aImgList : TImagelist; aImgListIndex : Integer);
begin
inherited Create(AOwner);
Assert(Assigned(AOwner),Self.ClassName + ' : Objekt AOwner darf nicht NIL sein.');
Assert(aImgList <> nil, Self.ClassName + ' : Parameter Imageliste darf nicht NIL sein.');
Assert(aImgListIndex <> null, Self.ClassName + ' : Parameter ImagelistIndex darf nicht NULL sein.');
fComponent:= AOwner;
if IsPublishedProp(fComponent, 'PopupMenu') then
fPopUpMenuCreated := not Assigned([b]fComponent.PopUpMenu[/b]);
im fettmarkierten klappt es nicht, keine Ahnung weshalb