Plusieurs bouttons et 1 énénement
Résolu
Folders
Messages postés
2
Date d'inscription
lundi 14 juin 2004
Statut
Membre
Dernière intervention
15 mai 2005
-
15 mai 2005 à 00:35
Folders Messages postés 2 Date d'inscription lundi 14 juin 2004 Statut Membre Dernière intervention 15 mai 2005 - 15 mai 2005 à 18:40
Folders Messages postés 2 Date d'inscription lundi 14 juin 2004 Statut Membre Dernière intervention 15 mai 2005 - 15 mai 2005 à 18:40
A voir également:
- Plusieurs bouttons et 1 énénement
- Couleur police et couleur boutton en VB6 ✓ - Forum Visual Basic 6
3 réponses
WhiteHippo
Messages postés
1154
Date d'inscription
samedi 14 août 2004
Statut
Membre
Dernière intervention
5 avril 2012
3
15 mai 2005 à 08:35
15 mai 2005 à 08:35
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.
cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2013
32
15 mai 2005 à 10:01
15 mai 2005 à 10:01
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.
<
Folders
Messages postés
2
Date d'inscription
lundi 14 juin 2004
Statut
Membre
Dernière intervention
15 mai 2005
15 mai 2005 à 18:40
15 mai 2005 à 18:40
Merci beaucoup, c'est exactement se que je voulais savoir.
Bonne prog. Folders
Bonne prog. Folders
