Besitzt eine Komponente eine bestimmte Eigenschaft???

[dot]

Hallo Leute,

wie stelle ich fest, ob eine Komponente eine bestimmte Eigenschaft besitzt?
Ich schreibe ein Object, dessen Instanz erzeugt wird und ein Parameter davon TComponent ist.
Es dreht sich alles um die Property "PopUpMenu"

ich will feststellen, ob mein übergebenes TComponent überhaupt diese Eigenschaft besitzt?

Sprich an mein Objekt dürfen nur TComponents übergeben werden, die diese Eigenschaft ausweisen!

danke für die hilfe

dot

[Deep-Sea]

Delphi-Quellcode:

uses TypInfo;

IsPublishedProp(...)

[dot]

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

[Deep-Sea]

TComponent hat keine Eigenschaft PopupMenu, was ja dein Problem ist.
Höher gehen eigentlich ja, aber das wird dir nicht gelingen.

Schau dir die anderen Funktionen in TypInfo mal an. U.a. findest du da auch SetPropValue

[dot]

das bedeutet das ich mit "SetPropValue"
beim create vom Object dem TComponent eine neue Property zuweisen kann?

[Deep-Sea]

Nein. Wie der Funktionsname verrät, kannst du damit eine Eigenschaft, die über deren Name identifiziert wird, einen Wert zuweisen.

Delphi-Quellcode:

If IsPublishedProp(DasObject, NameDerEigenschaft) then 
  SetPropValue(DasObject, NameDerEigenschaft, WertDerEigenschaft);

[sirius]

Was hindert dich an:
fPopUpMenuCreated := not Assigned(TControl(fComponent).PopUpMenu); Edit: vergiss es, ist ja protected

[dot]

also das Cast klappt leider nicht, weil er meint der Bezeichner wäre undefiniert

[Deep-Sea]

Zitat von dot:

also das Cast klappt leider nicht, weil er meint der Bezeichner wäre undefiniert

Lies sirius sein Edit:

Zitat von sirius:

Edit: vergiss es, ist ja protected

Und auch so: "fComponent" muss nicht vom Typ TControl sein (wenn man schon castet, müsste man noch "If fComponent is TControl then" schreiben)

[dot]

d.h ich muss in meiner Objectdeklaration ein fPopUpValue einführen und dann

Delphi-Quellcode:

If IsPublishedProp(fcomponent, 'PopUpMenu') then
  SetPropValue(fcomponent, 'PopUpMenu', fPopUpValue);

und dann immer auf fPopUpValue abfragen anstatt fComponent.popupmenu ???