groupe de bouttons ?

Bonjour je voudrai savoir comment faire pour attribuer 1 seul événement a plusieurs boutton .
par exemple , pour une calculatrice , je mé 10 bouton chacun a sur son caption un numéro entre 0 et 9 . A chaque clique sur un de ces bouttons , un seul et meme événement. ( l'affectation du numéro correspondant au bouton à une variable integer )  .

voila pour faire plus claire :

procedure TfrmMain.ButtonXClick(Sender: TObject);
begin
   variable : = StrToInt(boutonx.caption)
end


il est possible de faire ça en VB , en créant des groupes de boutons , ( c comme des tableaux ) ; chaque bouton a un indice de 0 à n , le code sera donc :
variable := StrToInt(mongroupe[i].caption) , mongroupe[i] représentant le bouton clické .

Akrame

Je suis d'accord avec Cirec les tags c'est plus pratique et plus propre je pense...

neodelphi

dans le même genre comme les touches d'un clavier numérique n'ont généralement comme  caption que les chiffres '0'..'9'  tu peux aussi utiliser directement le caption en regroupant tous les évènements soit dans un seul onclick (du bouton '0' par exemple) soit ne ajoutant une actionlist
Var IntValeur : Integer;
Procedure clavierClick (Sender :TObject);
Begin
   With clavier(Sender) Do
   Begin
     IntValeur = strtoint( Caption);
   End;
End;
pour ce genre de programme il doit y avoir autan de solutions que de programmeurs!!
@+
jlen

Woah ya tellement de solutions ! :) Merci tout le monde :) merci infiniment .
Akrame ------

Essaye la solution de jlen, elle à l'avantage de pouvoir implémenter une extension à ta calculatrice à l'avenir: la programmer. En effet si par la suite tu as besoin d'exécuter une séquence de calcul depuis un fichier, tu n'as juste qu'a faire une boucle et utiliser le case.

neodelphi