- Visual Basic / VB.NET : Effet gravure sur un boutton - CodeS SourceS
- Ocx : boutton skinnable + transparance (csxboutton)
- Ecriture ds un fichier .txt a partir ds boutton et d'un champ de texte .
- Petit prog marrant qui déplace le boutton démarrer de windows.
- Calendrier / agenda: affichage mensuel avec gestion d'énénements
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)
- Visual Basic / VB.NET : Effet gravure sur un boutton - CodeS SourceS - Guide
3 réponses
WhiteHippo
- Messages postés
- 1154
- Date d'inscription
- samedi 14 août 2004
- Statut
- Membre
- 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.
cs_Delphiprog
- Messages postés
- 4297
- Date d'inscription
- samedi 19 janvier 2002
- Statut
- Modérateur
- 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.
<