Newbie please help

Question

Voilà je suis légèrement newbie en delphi et je voudrais savoir comment faire pour appliquer une fonction à un élément sans avoir à déclarer la même pour chaque élément (ie je veux que sur le click du bouton n le Button(n).caption change)
Le n étant défini autre part.

freud2000 · Answer

Bonjour, ce n'est pas tres dure si j'ai bien compris la fonction. 
Il suffit de creer une fonction avec en parametre sender : TObject du genre.

Function  ChangeName (Sender : Tobject)
begin
       TButton(Sender).caption := 'nouveau libellé du bouton';
end;

Et dans les fonctions Onclick des boutons tu appelles la fonction comme ca 

ChangeName(Sender);


Voila j'espere que cela pourra t'aider.

JaMiGa · Answer

Merci.
C'est pas tout à fait ça mais ca m'aide un peu.
J'ai trouvé comment bien expliquer:
Imaginons que j'ai 5 buttons (Button1...Button5).
Maintenant au lieu de faire:

Button1.Caption='Test';
...
Button5.Caption='Test';

Je voudrais faire:

for i:=1 to 5 do
Button(i).Caption:='Test';

Et c'est sur la facon d'écrire Button(i) que j'ai un problème.
Voilà.
Merci.

freud2000 · Answer

Bonjour et désolé je n'avais pas compris la question . 
Il suffit donc de faire comme ca : 

      for cnt := 0 to Form1.ControlCount -1 do
          If Form1.Controls[cnt] is TButton then
                 TButton(Form1.Controls[cnt]).Caption := 'Nouveau caption';

Newbie please help

3 réponses

Votre réponse

Discussions similaires