Bonjour,

Je développe un soft avec Delphi 2006 sous WinXP.

J'ai 50 composants qui doivent lancer une même procédure.

Le problème c'est que lorsque le composant lance cette procédure, il doit envoyer une variable qui lui est propre (pex : var lettre := 'a' pour Button1 - var lettre := 'b' pour Button2 - ...).

Ce que je fais actuellement, c'est :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
procedure TForm1.Button5Click(Sender: TObject);
begin
  Travail(var lettre : string);
end;
Ce que j'aimerais faire, c'est dans l'évènement OnClick du button c'est écrire Procedure_Travail. Et c'est la procédure qui se rend compte de quel button l'a lancé.

Il lui suffit dés lors de trouver la valeur de la variable lettre par exemple dans le hint du button; si précédemment j'ai rajouté la valeur de la variable dans le hint.

Ce qui me permettra :
- de ne pas rajouter des dizaines de lignes dans le code,
- de pouvoir plus facilement faire une mise à jour du logiciel.

D'avance merci pour vos réponses.