Discussion :

[Coussati]

salut tlm

j'ai 2 questions :


1/ j'aimerais savoir si je peux raccourcir mes codes, ex : j'ai 5 boutons et j'aimerais changer leur caption

au lieu de répéter 5 fois button1.caption := '1';

est ce qu'il y a un moyen d'utiliser des variables ex :

for i := 1 to 5 do button X .caption := inttostr(i);

le X représente le code que je ne sais pas ...


2/ dans mon application j'aurai besoin de créer plusieurs boutons, et donc j'aimerais savoir comment le faire dynamiquement mais aussi comment les différencier et mettre un code précis pour chacun d'eux

[sat83]

Pour creer des composant dynamiquement, tu peux regarder ici

Pour parcourir des composant se trouvant sur ta fiche, tu peux utiliser FindComponant

[cincap]

@ Coussati, peut être comme ceci pour le Caption :

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
 
procedure TForm1.FormCreate(Sender: TObject);
var
  button: array[1..5] of TButton;
  x : integer;
begin
   button[1] := Button1;
   button[2] := Button2;
   button[3] := Button3;
   button[4] := Button4;
   button[5] := Button5;
 
   for  x := 1 to 5 do
     button[x].Caption := 'Test' ;
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  x: integer;
begin
  for x := 1 to 5 do
    TButton(Self.FindComponent('Button test' + IntToStr(x))).Caption := IntToStr(x);
 
end;

@+,

Cincap

[Coussati]

merci à vous 2, je pense que je me débrouillerai avec findcomponant