Discussion :

[jamdinhe]

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

[Cl@udius]

Salut

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

Code :

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

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

[jamdinhe]

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

[birdyz]

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 :

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

TButton(Sender).Name

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

Code :

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

TControl(Sender).Name

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

Birdyz

[aityahia]

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 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.

[A.SISSA]

Slt , tu peux jouer sur le Tag des boutons

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

[SergioMaster]

+999

[Clorish]

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

Tester l'objet lanceur :

Code :

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

If Sender = Self.MyButton Then

Manipuler un objet :

Code :

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

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 :

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

1
2
3
4
 
Var bt : TButton;
bt := TButton(Sender);
bt.caption := 'monbouton';