boucle pour modifier caption de plusieur boutons

**unja2010** · 21/07/2018, 13h56

salut
j' ai une form centient 10 bouton et un SpeedButton
commment programmer une boucle pour changer caption de tous les bouton (caption contient le numero du bouton)

Code :

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

1
2
3
4
5
6
7
8
9
10
11

procedure TForm1.SpeedButton1Click(Sender: TObject);
var i:integer;
begin


for i :=1 to 10 do 
Buttoni.caption:= i;

end;

**tourlourou** · 21/07/2018, 14h39

Dans la FAQ se trouve un code facilement adaptable à ton cas, destiné à parcourir les composants d'une fiche.

**unja2010** · 21/07/2018, 14h52

Envoyé par tourlourou

Dans la FAQ se trouve un code facilement adaptable à ton cas, destiné à parcourir les composants d'une fiche.

merci voila la solution

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TForm1.SpeedButton1Click(Sender: TObject);
Var i:Integer;
begin
  For i:=0 To ComponentCount-1 Do
  If Components[i] Is TButton Then
    TButton(Components[i]).Caption:= inttostr(i);
 
end;

**tourlourou** · 21/07/2018, 18h47

Oui, mais tu n'auras pas la certitude que le bouton ButtonX aura X pour Caption avec ton code, si cela est important.

**Charly910** · 21/07/2018, 21h05

Bonjour, sinon tu peux utiliser un tableau de TButton et utiliser la propriété Tag :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
unit Boutons;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    BT: TButton;
    procedure FormDestroy(Sender: TObject);
    procedure BTClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
  Bouton : array[1..10] of TButton;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormDestroy(Sender: TObject);
  var
    i : Byte;
  begin
   {Important: Free your created Buttons}
   for i := 1 to 10 do
     Bouton[i].free;
end;
 
procedure TForm1.BTClick(Sender: TObject);
begin
   ShowMessage('Bouton n° ' + IntToStr((Sender as TButton).Tag) + ' cliqué!');
end;
 
procedure TForm1.FormCreate(Sender: TObject);
  var
   i : Byte;
  begin
   for i := 1 to 10 do
   begin
      Bouton[i] := TButton.Create(Self);
     With Bouton[i] do
     begin
      Parent := Form1;
      Caption := 'Bouton n° '+ IntToStr(i);
      Left := 10 ;
      Top := i * Height;
      Tag := i;
      OnClick :=  BTClick;
      Visible := True;
     end;
    end;
end;
 
end.

A+

Charly

**ShaiLeTroll** · 23/07/2018, 10h49

le FormDestroy avec le Free des Bouton est inutile
le Owner 'Self' c'est à dire l'instance courante de TForm1 à sa libération va libérer les TButton
Mais encore ce n'est pas tout, un contrôle ne peut pas exister sans son Parent, du coup, la libération de Form1 sera la première cause de libération (avant celle du Owner)
Dans d'autres circonstances, le Free est nécessaire (en général, ce n'est pas le cas avec des classes héritées de TComponent et TControl si l'on gère Owner et\ou Parent)

Le Tableau Bouton serait mieux placé en membre privé de TForm1
Eviter l'utilisation de la variable Form1 au profit de Self est aussi a privilégié

Enfin, il y FindComponent

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  I: Integer;
  Cpt: TComponent;
begin
  for I := 1 to 10 do
  begin
    Cpt := FindComponent(Format('Button%d', [I]));
    if Cpt is TButton Then
      TButton(Cpt).Caption:= IntToStr(i);   
  end; 
end;

**Charly910** · 23/07/2018, 16h04

Merci ShaiLeTroll pour ces conseils avisés !
A+
Charly

**BigBisous1013** · 09/12/2018, 18h26

Une autre Soluce :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm2.sButton1Click(Sender: TObject);
var
  I : Integer;
begin
  for I := 0 to Form2.ComponentCount - 1 do  begin
    if Form2.Components[I] is TSpeedButton then begin  // C'est bien un SpeedButton ?
        TSpeedButton(Form2.Components[I]).Caption := 'BUTTON' + IntToStr(I);
        // Et ainsi de suite tu peux TOUT Changer...
    end;
  end;
end;