Discussion :

[jmjmjm]

J'ai un petit probleme, j'ai une serie de bouton Button1,Button2,Button3,Button4......
et je veux ecrire dedant de facon aleatoire :

Code :

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

1
2
3
4
5
 
For I := 0 to 12 do begin
      jeu := random(9)+1;
                        // et la je souhaite ecrire dans 'Button+le resultat de jeu
end;

Par exemple si jeu = 3 je ve ecrire dans le button3 comment puis je faire

Reponder vite svp je dois rendre le projet bientot
MERCI d'avance a tout ce qui me reponderont

[frantzgac]

ben par exemple comme ca

Code :

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

1
2
3
 
i:=random(..);
button1.caption:='Button'+inttostr(i);

Maintenant si tu veux éviter d'écrire la liste des boutons tu peux les mettre dans un TList et balayer le TList en castant les termes du TList par TButton(TList[x]). ou encore metre tous les boutons dans un TPanel et recherche les composants liés au panel qui sont des boutons

Code :

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

1
2
3
for i:=0 to panel1.componentcount-1 do
     if Panel1.Components[i] is TButton then
          TButton(Panel1.Components[i]).Caption:=' ';

Tu peux aussi repérer les boutons en mettant une valeur dans leur propriété Tag et en la testant...

C'est bien ta question ?

[jmjmjm]

désolé j'ai du mal m'exprimer ce que je souhaite c'est ecrire dans le button(rand)

par exempl si rand = 4

je ve ecrire : Button4.caption := " "
et non ecrire Button4 dans le bouton 1

[petitcoucou31]

salut , teste ton resultat et agit en fonction .

Code :

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

1
2
3
4
5
6
7
8
9
 
....
    i:=random(..); 
   if i=1 then Button1.caption:='texte1...'
   else
   if i=2 then Button1.caption:='texte2...'
   else
   if i=3 then Button1.caption:='texte3...'
...

et cela pour chaque bouton.
bye

[e-ric]

Toujours les mêmes questions, peut-être un petit tour dans la FAQ?
(FindComponent..)

Un tableau de référence à tes TButton peut faire l'affaire, le sujet a été discuté récemment.

e-ric

[jmjmjm]

merci petitcoucou31 mais j'en est 99 donc sa fait chier Merci quand meme

[jmjmjm]

Peut tu m'expliquer le font de ta penser stp car pas tout comris merci

[petitcoucou31]

Donne nous en clair ce que tu veux faire , et peut etre on arrivera a y repondre , quel est ton projet , ton probleme concret , un peu de code et ou sont tes erreurs ..

bye

[DMO]

e-ric te suggère (très justement) l'utilisation de FindComponent, dont tu comprendras l'utilisation grâce à l'aide de Delphi ainsi qu'à la FAQ.

Pourquoi ?

Car tu souhaites en fin de compte retrouver un bouton s'appelant 'bouton'+indice. C'est-à-dire que tu veux retrouver un composant en ayant son nom.

[e-ric]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
var
  Arr : Array[1..99] of TButton;
 
procedure TForm1.OnFormCreate(Sender: TObject);
begin
  Arr[1] := Button1;
  Arr[2] := Button2;
...
  Arr[99] := Button99;
// Courage 99 lignes c'est moins que 100 !
End;

l'accès est ensuite direct via le tableau ! Capito ???

e-ric

[jmjmjm]

MERCI e-ric super sympa d'avoir repondu aussi rapidement

[Manopower]

J'en rajoute une couche, surtout pour ne pas te tapper 99 lignes de code (car il se pourrait qu'on te fasse la remarque : oui mais si j'ai 12000 boutons ?)

Tu as posé avec tes petites mains les 99 boutons sur ta fiche ? tu n'as pas trouvé ça trop long ? tu ne t'es pas demandé si une tâche aussi répétitive pouvait être automatisée ?

=> Tu as donc une Form VIDE au début, on va tout créer dynamiquement.
=> Déclarer StdCtrls dans les uses

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
 
var
  TableauBoutons : Array[1..99] of TButton;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var i,Gauche,Haut : Integer;
begin
 
//Création des boutons
  For i:= 1 to 99 do
  begin
    TableauBoutons[i] := TButton.create(Self);
    TableauBoutons[i].parent := self;
    TableauBoutons[i].name := 'MonBouton'+inttoStr(i);
    TableauBoutons[i].caption := IntToStr(i);
 
  end;
//Dans un deuxième temps on place les boutons
//(même si on peut regrouper c'est plus clair comme ça)
 
  Gauche:=50;
  Haut:= 30;
  TableauBoutons[1].top:=Haut;
  TableauBoutons[1].Left:=Gauche;
 
For i:= 2 to 99 do //Le bouton 1 sera notre référence placée
begin
  Haut:=Tableauboutons[i-1].top;
  Gauche:=Tableauboutons[i-1].left+75;
//On passe à la ligne tous les 11 boutons
 
  If i in [11,21,31,41,51,61,71,81,91] then
  begin
    Haut := Haut+25;
    Gauche := TableauBoutons[1].left;
  end;
  TableauBoutons[i].top:=Haut;
  TableauBoutons[i].left:=Gauche;
 
end;
end;