Discussion :

[sly60]

J'aimerai lorsque j'appui sur un bouton récupérer son nom dans une variable, je ne sais pas comment faire. Vous avez une solution ?

[ero-sennin]

Salut,

Pour récupérer son nom, tu peux faire :

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
var
  NameOfButton:string;
begin
  NameOfButton:=Button1.Name;
  // Affichage  :
  ShowMessage(NameOfButton);
end;

Après, à toi d'adapter à tes besoins...
A ++

[J-P-B]

Salut,

Code :

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

1
2
 
  ShowMessage('NameOfButton');

C'est plutôt

Code :

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

1
2
 
  ShowMessage(NameOfButton);

[ero-sennin]

Merci pour ta remarque! C'est une erreur d'inattention dirons nous
A+

[sly60]

oui mais moi je ne sais pas sur quel bouton j'ai cliqué, j'ai 20 boutons avec la meme procedure en OnClick, j'aimerai justement récupérer le nom du bouton sur lequel j'ai cliqué dans cette procedure. Je suis clair ou pas ?

[Cl@udius]

Salut

Et bien dans ce cas utilise le Sender:

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TForm1.ButtonsClick(Sender: TObject);
var
  NameOfButton:string;
begin
  NameOfButton:=TButton(Sender).Name;
  // Affichage  :
  ShowMessage(NameOfButton);
end;

@+ Claudius

[sly60]

Merci ça marche nickel.