Besitzt eine Komponente eine bestimmte Eigenschaft???

[sirius]

Vielleicht so:

Delphi-Quellcode:

const Propname='Popupmenu';
...

  if ispublishedprop(fcomponent,Propname)and
     (proptype(fcomponent,Propname)=tkClass) then
  begin
    fpopupmenu:=TPopupmenu(getordprop(fcomponent,PropName));
    if not assigned(fpopupmenu) then
    begin
      fpopupmenu:=TPopupmenu.create(self);
      fPopUpMenu.Name := CompName('PopUpMenu'); 
      setordprop(fcomponent,Propname,integer(fPopupmenu));
    end;
...