Plusieurs bouttons et 1 énénement [Résolu]
Folders
- Messages postés
- 2
- Date d'inscription
- lundi 14 juin 2004
- Dernière intervention
- 15 mai 2005
- Messages postés
- 2
- Date d'inscription
- lundi 14 juin 2004
- Dernière intervention
- 15 mai 2005
A voir également:
- Plusieurs bouttons et 1 énénement
- Un boutton tres configurable - Codes sources - Visual Basic / VB.NET (Control)
- Activex boutton graphique - Codes sources - Visual Basic / VB.NET (Control)
- Commandbutton.ocx , une copie conforme d'un boutton classique . - Codes sources - Visual Basic / VB.NET (Control)
- Boutton flat picture - Codes sources - Visual Basic / VB.NET (Control)
- Effet gravure sur un boutton - Codes sources - Visual Basic / VB.NET (Divers)
3 réponses
Meilleure réponse
- Messages postés
- 1270
- Date d'inscription
- samedi 14 août 2004
- Dernière intervention
- 5 avril 2012
Utilise le "Sender" qui represente l'emetteur du message.
Exemple :
Un label, plusieurs boutons auxquels on associe l'événement Onclick suivant :
procedure TForm1.ClickSurBouton(Sender: TObject);
begin
if (Sender is TButton) then // On verifie que l'emetteur est bien de type TButton
begin
Label1.Caption := TButton(Sender).Name ;
end ;
end;
Un click sur chacun des boutons fera apparaitre son nom dans le Label1.
Cordialement.
Exemple :
Un label, plusieurs boutons auxquels on associe l'événement Onclick suivant :
procedure TForm1.ClickSurBouton(Sender: TObject);
begin
if (Sender is TButton) then // On verifie que l'emetteur est bien de type TButton
begin
Label1.Caption := TButton(Sender).Name ;
end ;
end;
Un click sur chacun des boutons fera apparaitre son nom dans le Label1.
Cordialement.
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
97 internautes nous ont dit merci ce mois-ci
- Messages postés
- 4580
- Date d'inscription
- samedi 19 janvier 2002
- Dernière intervention
- 9 janvier 2013
Pense aussi à exploiter la propriété Tag des composants en leur attribuant une valeur différente :
procedure TForm1.ClickSurBouton(Sender: TObject);
begin
if Sender is TButton then
case TButton(Sender).Tag of
0 : {Traitement bouton 1};
1 : {Traitement bouton 2};
2 : {Traitement bouton 3};
3 : {Traitement bouton 4};
end;
end;
En utilisant cette propriété, tu facilites le traitement par une instruction Case, toujours plus efficace qu'un tas de If et que des comparaisons de chaines.
<HR color=#008000>
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
<
procedure TForm1.ClickSurBouton(Sender: TObject);
begin
if Sender is TButton then
case TButton(Sender).Tag of
0 : {Traitement bouton 1};
1 : {Traitement bouton 2};
2 : {Traitement bouton 3};
3 : {Traitement bouton 4};
end;
end;
En utilisant cette propriété, tu facilites le traitement par une instruction Case, toujours plus efficace qu'un tas de If et que des comparaisons de chaines.
<HR color=#008000>
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
<
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.