TComponent: vérifier l'existence d'une propriété

Bonjour :D,

Je souhaite détecter si on TComponent, possède la propriété 'Caption', et ensuite si c'est positif modifier mon caption.
J'utilise FieldAddress qui est censé le faire, mais ca ne marche pas :(

Voici le code que j'ai testé:

Code:

---

1 2 3 4 5 6

var s:shortstring; pc:^TCaption; begin s := 'Caption'; pc := Button1.FieldAddress( s );

---

pc est systématiquement nil.
J'ai essayé auparavant, pc : Pointer, c'est identique.

si quelqu'un a une solution :)

si tu veut lire la valeur de caption (meme s'il n'existe pas) passé par les message de windows
on plus TControl l'ancetre des composant ayant caption, alors pourqoi pas testé si c'est un TControl

Code:

---

if control is TControl then p:=TControl(control).caption

---

j'espére que j'ai pas dis de bétise

Bonjour,

Le problème vient probablement du fait que le caption n'est pas une variable mais une property avec Get/SetText comme methode read et write.

Dans ce cas il faut utiliser ce qu'il faut :D

Code:

---

1 2 3 4

function GetCaption(AComponent: TComponent): TCaption; begin Result := TCaption(GetObjectProp(AComponent, 'Caption', TCaption)); end;

---

Au besoin, ajouter uses TypInfo; en haut de projet.

@++

Merci pour vos réponse :D

@Edam
Je n'ai pas trouvé de classe commune le plus en amont possible ayant la propriété Caption publiée.
Mais c'est effectivement le 1er réflexe à avoir ;)

@Graffito, c'est peu être le problème. Mais L'aide de Delphi spécifie que cela permet de récupérer un pointeur sur un champ publié.
Caption est publié pour un bouton...

@Eric Sigoillot
J'ai déjà croisé cette fonction dans mes recherches, merci donc pour l'utilisation. par contre, elle semble ne pas convenir dans mon cas, car le 3eme parametre attend un TClass descedant de TObject.

Or, TCaption n'est pas un class of TObject... :(

ca ne marche donc pas (viloation d'accès, si on place TCaption en 3eme param...).
J'ai essayé par contre avec la propriété 'Font', cela fonctionne parfaitement car TFont descend de TObject.

donc pas résolu :(

Utilise IsPublishedProp pour savoir si la propriété existe, et GetPropValue pour en récupérer la valeur.
:f1: pour de plus amples détails ;)

sjrd MERCI :D

tu m'as mis sur la bonne voie.

En fait, une seule ligne suffit pour arriver à mes fins:

Code:

---

try SetStrProp( Button1, 'Caption', 'toto' ); except end;

---

plus généralement

Code:

---

try SetStrProp( UnComposant, 'UnePropriété string', UneChaine );

---

Pour infos, cela se décline dans tous les types existants:
SetObjectProp()... par exemple
avec tous les get qui vont bien -> CTRL-CLICK sur SetStrProp et la liste est dans le source Delphi.

Donc merci encore !