A propos du tag

Résolu
cavalier2400 Messages postés 120 Date d'inscription mardi 8 juillet 2008 Statut Membre Dernière intervention 1 décembre 2010 - 9 juil. 2009 à 01:04
cavalier2400 Messages postés 120 Date d'inscription mardi 8 juillet 2008 Statut Membre Dernière intervention 1 décembre 2010 - 9 juil. 2009 à 07:37
Bonsoir, je connais juste la valeur du tag d'un bouton, exemple=2, et je connais ni le nom de ce bouton, ni son caption, comment faire pour exécuter le contenu du programme qui se trouve dans (onClick), ou pour changer son caption... merci.

2 réponses

Cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 50
9 juil. 2009 à 02:11
Salut,

si le bouton se trouve dans la même fiche c'est simple

procedure TForm1.Button6Click(Sender: TObject);
var i: Integer;
begin
  for I := 0 to ComponentCount-1 do
    if (Components[I] is TButton) then
      if (Components[I] as TButton).Tag = 2 then
        with (Components[I] as TButton) do
        begin
          Caption := 'Caption Changed';
          Click;
        end;
end;

 
@+
Cirec

<hr siz="" />
3
cavalier2400 Messages postés 120 Date d'inscription mardi 8 juillet 2008 Statut Membre Dernière intervention 1 décembre 2010 1
9 juil. 2009 à 07:37
Merci Cirec, le code est parfait, mais par curiosité ya-t-il possibilité en Delphi d'accéder à boutons ou des labels... par des indices, que ce soit à la conception ou à l'exécution (comme en VB), ex: button[1], button[2]...
0
Rejoignez-nous