Discussion :

[Just-Soft]

Bonjour;

En clair la propriété "tag" tant définie dans bon nombre d'objets, à quoi sert-elle exactement ?

Merci d'avance.

[exoseven]

à ce que tu veux tu peux t'en servir d'index, y attacher un objet ... c'est pour faciliter la vie des bidouilleurs

[sat83]

Elle n'a pas de fonction particulière.

C'est une propriété qui peut être utilisé par le programmeur comme il veut.

En cherchant dans l'aide (F1) tu aurait eu :

La propriété Tag n'a pas de rôle prédéfini. Cette propriété est proposée afin de pouvoir stocker une valeur entière ou elle peut être transtypée sur n'importe quelle valeur 32 bits, comme une référence de composant ou un pointeur.

[OutOfRange]

Un petit exemple sans prétention de l'utilisation du tag ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure Tpal.menusurgitabPopup(Sender: TObject);
begin
  case TPageControl(TPopupMenu(Sender).PopupComponent).Tag of
  0: begin menrenom.Caption:='Renommer la catégorie '+pagepal.ActivePage.Caption;
           menajout.Caption:='Ajouter une catégorie après '+pagepal.ActivePage.Caption;
           mensuppr.Caption:='Supprimer la catégorie '+pagepal.ActivePage.Caption;
     end;
  1: begin menrenom.Caption:='Renommer la rubrique '+pagesub.ActivePage.Caption;
           menajout.Caption:='Ajouter une rubrique après '+pagesub.ActivePage.Caption;
           mensuppr.Caption:='Supprimer la rubrique '+pagesub.ActivePage.Caption;
     end;
  end;
end;

Dans cet exemple, j'utilise le tag de chaque TPageControl pour connaître le TPageControl (sender) dont le gestionnaire d'événement est appelé, ce qui détermine le texte des TMenuItems affichés au moment du OnPopup.

Je précise que les TpageControl sont créés dynamiquement et qu'il n'est donc pas possible de leur affecter des événements dès la conception
Et je n'ai qu'une procédure OnPopUp à écrire...

Il y a certainement d'autres utilités du tag