Discussion :

[Tux74]

Soit une feuille disposant de plusieurs composants. Je souhaite associer une seule procédure à chacun de leur événement mousemove genre :
Hint := affiche_tip(le_nom_du_composant);

Puis traiter dans la procédure affiche_tip en fonction du nom du composant. impossible de trouver comment envoyer le nom du composant avec Sender ou autre...
Je suis obligé de créer pour chaque composant une procédure MouseMove personnalisée dans laquelle je spécifie le nom du composant :
Hint := affiche_tip(Etiquette1);
Hint := affiche_tip(Etiquette2);
...

Existe-t-il une autre solution ?

Merci.

[fred78]

Avec ça :

(Sender as TComponent).Name

Fred

[Tux74]

Parfait. Merci Fred.