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**

markieren

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?

markieren

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.

markieren

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

markieren

Delphi-Quellcode:

			If IsPublishedProp(fcomponent, 'PopUpMenu') then

  SetPropValue(fcomponent, 'PopUpMenu', fPopUpValue);

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

Besitzt eine Komponente eine bestimmte Eigenschaft???

Besitzt eine Komponente eine bestimmte Eigenschaft???

Re: Besitzt eine Komponente eine bestimmte Eigenschaft???

Re: Besitzt eine Komponente eine bestimmte Eigenschaft???

Re: Besitzt eine Komponente eine bestimmte Eigenschaft???

Re: Besitzt eine Komponente eine bestimmte Eigenschaft???

Re: Besitzt eine Komponente eine bestimmte Eigenschaft???

Re: Besitzt eine Komponente eine bestimmte Eigenschaft???

Re: Besitzt eine Komponente eine bestimmte Eigenschaft???

Re: Besitzt eine Komponente eine bestimmte Eigenschaft???

Re: Besitzt eine Komponente eine bestimmte Eigenschaft???

Forumregeln

Deep-Sea Registriert seit: 17. Jan 2007 907 Beiträge Delphi XE2 Professional	#2 Re: Besitzt eine Komponente eine bestimmte Eigenschaft??? 7. Nov 2007, 14:36 markieren Delphi-Quellcode: uses TypInfo; IsPublishedProp(...) Chris
	Zitat

Deep-Sea Registriert seit: 17. Jan 2007 907 Beiträge Delphi XE2 Professional	#4 Re: Besitzt eine Komponente eine bestimmte Eigenschaft??? 7. Nov 2007, 14:55 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 Chris
	Zitat

dot Registriert seit: 10. Okt 2007 39 Beiträge	#5 Re: Besitzt eine Komponente eine bestimmte Eigenschaft??? 7. Nov 2007, 15:04 das bedeutet das ich mit "SetPropValue" beim create vom Object dem TComponent eine neue Property zuweisen kann?
	Zitat

Deep-Sea Registriert seit: 17. Jan 2007 907 Beiträge Delphi XE2 Professional	#6 Re: Besitzt eine Komponente eine bestimmte Eigenschaft??? 7. Nov 2007, 15:08 Nein. Wie der Funktionsname verrät, kannst du damit eine Eigenschaft, die über deren Name identifiziert wird, einen Wert zuweisen. markieren Delphi-Quellcode: If IsPublishedProp(DasObject, NameDerEigenschaft) then SetPropValue(DasObject, NameDerEigenschaft, WertDerEigenschaft); Chris
	Zitat

sirius Registriert seit: 3. Jan 2007 Ort: Dresden 3.443 Beiträge Delphi 7 Enterprise	#7 Re: Besitzt eine Komponente eine bestimmte Eigenschaft??? 7. Nov 2007, 15:08 Was hindert dich an: fPopUpMenuCreated := not Assigned(TControl(fComponent).PopUpMenu); Edit: vergiss es, ist ja protected Dieser Beitrag ist für Jugendliche unter 18 Jahren nicht geeignet.
	Zitat

dot Registriert seit: 10. Okt 2007 39 Beiträge	#8 Re: Besitzt eine Komponente eine bestimmte Eigenschaft??? 7. Nov 2007, 15:16 also das Cast klappt leider nicht, weil er meint der Bezeichner wäre undefiniert
	Zitat

dot Registriert seit: 10. Okt 2007 39 Beiträge	#10 Re: Besitzt eine Komponente eine bestimmte Eigenschaft??? 7. Nov 2007, 15:29 d.h ich muss in meiner Objectdeklaration ein fPopUpValue einführen und dann markieren Delphi-Quellcode: If IsPublishedProp(fcomponent, 'PopUpMenu') then SetPropValue(fcomponent, 'PopUpMenu', fPopUpValue); und dann immer auf fPopUpValue abfragen anstatt fComponent.popupmenu ???
	Zitat