Discussion :

[Rayek]

Bonjour,

J'ai un style plus ou moins complexe dans le quel je voudrais récupérer un pointeur sur un des label disponible dans ce style.

J'ai tenté des Item.StyleData['Le_nom_du_label'].AsObject et autres mais j'ai une erreur de transtypage.

Est-ce que c'est possible de récupérer un pointeur sur un objetc d'un style ? Si oui comment faire cela ?

Merci

[Papy214]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
var
  Lbl: TLabel;
begin
  Lbl := TLabel(Panel1.FindStyleResource('MonLabel'));
  if Assigned(Lbl) then
     ...  @Lbl est l'adresse

pour être complet:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
  if Assigned(Lbl) then
    ShowMessageFmt('%p', [@Lbl]);

[ALWEBER]

Tu peux peut être t'inspirer de cet échange

propagation-styles/

[Rayek]

Merci la solution de Papy214 semble fonctionner pour ce que j'ai besoin.