Evénement OnMouseMove de DELPHI

Salut salut ! les amis, je développe en DELPHI depuis quelques semaines cependant je suis sur un projet (Creer une appli pour a gestion des clients ). Jai besoin que vois m'aidiez à utiliser l'événement onMouseMove , je souhaiterais que lorsque je pass la souris sur une image bouton , on puisse voir une autre image...merci de me repondre

Bonjour,

il est regrettable que vous n'indiquiez pas la version de Delphi que vous utilisez et le cas échéant (Delphi XE+) si vous faites cet exercice avec la VCL ou en FMX.

J'utilise une version de XE7, vcl

Bonjour,

je ne comprend pas trop la phrase

Citation:

---

je souhaiterais que lorsque je passe la souris sur une image bouton

---

s'agit-il du passage de la souris sur le glyphe contenu dans le bouton TBitBtn ou tout simplement sur le bouton lui même ?

s'il s'agit du bouton lui-même les événements onMouseEnter et onMouseLeave sont certainement plus adaptés que onMouseMouve.

Code:

---

1 2 3 4 5 6 7 8

procedure TForm1.BitBtn1MouseEnter(Sender: TObject); begin bitbtn1.glyph.loadfromfile('imagein.bmp') end; procedure TForm1.BitBtn1MouseLeave(Sender: TObject); begin bitbtn1.glyph.loadfromfile('imageout.bmp') end;

---

par contre, s'il s'agit de ne modifier que si l'on est sur le glyphe il faut trouver la position de ce dernier et celle-ci est en fait calculée entre autre en fonction de la taille du texte (chercher dans le source VCL.Buttons la procédure CalcButtonLayout montre quels calculs il faut faire).
Une fois le rectangle déterminé (position Top, Left, largeur, hauteur du glyphe) il est alors facile de tester si la souris se trouve dans le rectangle.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var GlyphRect : TRect; // le plus difficile, obtenir ce rectangle v : integer; .. begin mouseinglyph:=(x>GlyphRect.left) AND (x<GlyphRect.left+GlyphRect.width) AND (y>GlyphRect.top) AND (y<GlyphRect.top+GlyphRect.Height); if Abs(mouseinglyph)<>bitbtn1.tag then begin // bitbtn1.glyph n'est qu'un TBitmap loadfromfile, loadfromstream, loadfromresourceName, loadfromresourceID sont dispo if mouseinGlyph then bitbtn1.glyph.loadfromfile('imagein.bmp') else bitbtn1.glyph.loadfromfile('imageout.bmp'); bitbtn1.tag:=Abs(mouseinglyph); // j'utilise le tag pour savoir si je suis dedans ou non et mémoriser l'état end;

---

Bonjour,

juste pour info depuis D2009 le TButton possède une propriété Image: TImageList
et 5 Index pour assigner une image à un des 5 états dont celui qui permet l'animation que tu désires

Cordialement,
@+

Merci a vous les amis vous m'aviez vraiment aider par vos différentes réponse c'est vraiment sympa merci encore..