Discussion :

[thierrybatlle]

Bonjour,

J'ai une application avec des boutons, sur chaqu'un d'entre je change la couleur et la police dans les évènements onMouseEnter et onMouseLeave, c'est exactement le même code pour tous les boutons.

Existe t'il un moyen de créer deux procédures et chaque fois que l'on passe sur le bouton le code s'exécute ?
Pour éviter la réécriture de code.

Merci à tous

[denokan]

tu peux d'une part créer une nouvelle classe descendante de TButton, ou alors tu peux affecter la même procédure dans le OnMouseEnter à tous tes boutons, et savoir quel bouton a généré l'appel à la fonction par le paramètre sender

ex :

Code :

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

(Sender as TButton).Caption := 'Cliqué';

[Linkin]

Tu déclares une procedure avec les mêmes paramètres que l'événement voulu où tu auras ton code et ensuite tu l'affectes dans l'inpecteur d'objet à l'événement voulu

(Par exemple pour OnMouseEnter :

Code :

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

1
2
 
 procedure MaProcedure(Sender : TObject);

)