Identifier le déclencheur d'une procédure

Bonjour,
je développe une application, comme j'ai enorméméent de bouttons qui sont sensés executer la même procédure (sauf un détail qui change).
justement, c'est ce détail qui me permet de créer cette discussion.
je dois utiliser le nom du boutton executeur pour ma procédure, vue que la procédure est exécuté par l'évennement OnMouseMouve "ActiveControl.Name" ne contient pas le nom du boutton que je veut, car ce dernier n'est pas cliqué,
j'espert que j'ai réussit à simplifier mon problême.
je demande donc de l'aide à ceux qui ont une idée sur l'astuce qu'il faut pour arriver au résultat voulu.
Merci davance
Amine

Salut

Tu peux utiliser le Sender de la procédure OnMouseMove. Sender repésente le bouton survolé.

Code:

---

1 2 3 4 5 6 7 8 9

procedure TForm1.ButtonMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin with TButton(Sender) do begin // ton traitement ... end; end;

---

@+ Claudius

Merci pour la réponse,
je l'ai essayer et j'ai trouver que j'ai le choix entre trois enregistremnet appartenant à Sender;
l'un est :Create (c'est un Constructor)
l'aure c'est : ClassName (c'est une function) : ShortString
et enfin : MethodName (c'est aussi une function avec un pointer "Adresse") : ShortString;
j'ai essayer ClassName, ca bug !
peut etre que je n'est pas su l'utiliser, pouvez vous me donner un peut plus d'explication SVP ?
Merci davance
Amine

Sender est de classe TObject. Si ton évènement est cablé uniquement sur des TButton, et que tu veux récupérer le nom du TButton aillant déclanché l'évènement, tu transtype ton sender. Ca donnera donc :

Code:

---

TButton(Sender).Name

---

Si ton évènements est cablé sur des controles de classes différentes, tu peux faire

Code:

---

TControl(Sender).Name

---

vu que la propriété Name est introduite au niveau de la classe TControl

Birdyz

Citation:

---

Envoyé par jamdinhe

Bonjour,
je demande donc de l'aide à ceux qui ont une idée sur l'astuce qu'il faut pour arriver au résultat voulu.
Merci davance
Amine

---

sincèrement je n'arrive pas a assimiler le résultat voulu 8O mais a mon avis vous pouvez utiliser un paramètre de la procédure pour récupérer le Compsant qui appel la procédure.

Slt , tu peux jouer sur le Tag des boutons :mouarf:

Citation:

---

if (Sender is Tbutton) then
i:=(Sender as TbsSkinSpeedButton).Tag
case i of
1: // le bouton 1 est activé
2:
.....

---

+999 :yaisse2:

Sender est la reference de l'objet qui a genere l'evenement.

Tester l'objet lanceur :

Code:

---

If Sender = Self.MyButton Then

---

Manipuler un objet :

Code:

---

1 2 3 4 5

If Sender.inheritsFrom(TButton) Then Begin TButton(Sender).Top := 30; End;

---

Le test par inheritsFrom permet de s'assurer que l'objet derive bien plus ou moins directement de TButton pour effectuer un cast securisé.

On peu meme passer par une variable pour eviter les casts successifs :

Code:

---

1 2 3 4

Var bt : TButton; bt := TButton(Sender); bt.caption := 'monbouton';

---