ecrire boutonRésolu

Question

J'ai un petit probleme, j'ai une serie de bouton Button1,Button2,Button3,Button4......
et je veux ecrire dedant de facon aleatoire :

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 bouton 3 comment puis je faire

Reponder vite svp je dois rendre le projet bientot
MERCI d'avance a tout ce qui me reponderont

cptpingu · Accepted Answer

On va &#233;viter la boucle et directement rechercher le bouton voulue.

Je pense que ceci devrait convenir:



var

jeu: byte;

Bouton; TButton;

begin

jeu :=  random(9)+1;

Bouton := (Form1.FindComponent('Button'+IntToStr(jeu)))   as  TButton;

    If Bouton<>nil then Bouton.Caption : = 'La solution est:'+IntToStr(jeu);


end;





Si tes boutons sont sur un panel ou un composant remplace Form1 par le nom de ce composant.

Ecrire bouton

1 réponse

Votre réponse

Discussions similaires