Discussion :

[Dr partowsky]

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

[SergioMaster]

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.

[Dr partowsky]

J'utilise une version de XE7, vcl

[SergioMaster]

Bonjour,

je ne comprend pas trop la phrase

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 :

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

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 :

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

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;

[Cirec]

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,
@+

[Dr partowsky]

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