Discussion :

[Hicks90]

Bonjour,
J'ai plusieurs TButton qui se nomme tout simplement Btn_S1, Btn_S2, Btn_S3 etc
Je dois changer le Caption de tout les boutons au cours d'un traitement dans une boucle for.
Je pensais à un truc comme:

Code :

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

1
2
3
4
5
6
7
8
for x:=1 to 10 do
begin
...
...
Btn_S+inttostr(x).Caption:=quelquechose;
...
...
end;

Le Y est variable selon les cas et le quelquechose est un résultat de traitement en format texte.

Évidemment cela ne fonctionne pas.
Je suis sûr que c'est tout simple... vous avez une idée ?

Stef

[archonte]

Salut !

N'oublie pas la
Un petit tour par ici ?

Comment trouver un composant en connaissant son nom ?

auteur : Nono40
Pour recherche la référence d'un composant en ne connaissant que son nom et son propriétaire, il faut utiliser la fonction FindComponent du propriétaire. Le résultat de cette fonction est toujours de type TComponent, il est donc utile d'en transtyper le résultat en fonction du type de composant attendu.

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
Var Edit:TEdit;
begin
  Edit:=TEdit(Form1.FindComponent('Edit1'));
  If Edit<>Nil
    Then ShowMessage(Edit.Text);
end;

Cette méthode est très utile pour modifier les propriétés d'une série de composants dont les noms peuvent être calculés en boucle. Par exemple pour effacer le contenu de Edit1.Text à Edit10.Text :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
Var Edit : TEdit;
    i : Integer;
begin
  For i:=1 To 10 Do
  Begin
    Edit:=TEdit(Form1.FindComponent('Edit'+IntToStr(i)));
    If Edit<>Nil
      Then Edit.Text:='';
  End;
end;

Si c'est Ok : ?

[Hicks90]

Bonjour,
Merci
J'ai fait une recherche mais je n'ai pas eu le reflexe de penser à la FAQ.