Besitzt eine Komponente eine bestimmte Eigenschaft???

[Deep-Sea]

Willst du nur wissen ob sie eine Eigenschaft Namens "PopupMenu" haben, oder willst du die Eigenschaft auslesen/setzen?

[sirius]

Zitat von Deep-Sea:

Willst du nur wissen ob sie eine Eigenschaft Namens "PopupMenu" haben, oder willst du die Eigenschaft auslesen/setzen?

Er will ja eben schauen, ob ein PopUpmenu existiert.
Und was sagt getProValue?

[dot]

ich versuche zu setzen und zu lesen, wenn ich z.b Tbutton ans object gebe dann klappt es, aber ich will es pauschal für alle haben die PopUpMenu können

Delphi-Quellcode:

fComponent:= AOwner;

  fPopUpMenuCreated := not Assigned(fComponent.PopUpMenu);
  if fPopUpMenuCreated then
  begin
    fPopUpMenu := TPopUpMenu.Create(self);
    fPopUpMenu.Name := CompName('PopUpMenu');
    fComponent.PopUpMenu := fPopUpMenu;
  end else
  begin
    fPopUpMenu := fComponent.PopUpMenu;
  end;

[Deep-Sea]

Zitat von dot:

ich versuche zu setzen und zu lesen, wenn ich z.b Tbutton ans object gebe dann klappt es, aber ich will es pauschal für

Naja, und zum Prüfen ob es die Eigenschaft gibt, nimmst du IsPublishedProp, zum setzen SetPropValue und zum lesen GetPropValue.

[samson]

Hallo Zusammen,

was haltet ihr denn von folgendem Ansatz:

1. neue Klasse erstellen

Delphi-Quellcode:

type
  TMyControl = class (TControl)
    public
      property PopupMenu;
  end;

2. Function zum überprüfen erstellen

Delphi-Quellcode:

function hasPopup(Sender :TObject) :boolean;
begin
  if Sender is TControl then
    result := assigned((Sender as TMyControl).PopupMenu);
end;

Probier mal aus.

Gruß


Frank

[dot]

danke der ansatz sieht fein aus,

leider bekomme ich beim

    result := assigned((Sender as TMyControl).PopupMenu); eine zugriffsverletzung

sonst hätte ich das so gemacht:

Delphi-Quellcode:

  fComponent:= AOwner;

  fPopUpMenuCreated := not hasPopUp(fComponent);
  if fPopUpMenuCreated then
  begin
    fPopUpMenu := TPopUpMenu.Create(self);
    fPopUpMenu.Name := CompName('PopUpMenu');
    (fComponent as TMyControl).PopupMenu := fPopUpMenu;
  end else
  begin
    fPopUpMenu := (fComponent as TMyControl).PopupMenu;
  end;

[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;
...

[dot]

super sirius

jetzt klappt es wunderbar!!!