animation

salu a tous jé une question assez facile: comment losque je pointe sur un bouton avec la souris je déclenche l'évènement suivant :une image apparait et quand je le quitte elle disparait. please respond... c'est urgent. 

 

 

Avec l'évènement OnEnter et OnExit du bouton.
Ce qui donne :
Procedure Form1.ButtonEnter (....);
begin
image.Visible:=true;
end;

Procedure Form1.ButtonExit(....);
begin
image.Visible:=false;
end;

pseudoOM

Utilise un timer, et dans la procedure OnTimer, mets ceci :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Visible := ptinrect(Button1.BoundsRect, ScreenToClient(Mouse.CursorPos));
end;
Remarque : abaisse l'intervalle du timer pour que l'application soit plus réactive

@+
Bonne Prog'
Nico

---

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !

 Attention PseudoOM !
OnEnter et OnExit ne fonctionnent pas dans ce cas car ils sont appelés lors de changements de focus, pas de changement de position de la souris !

@+
Bonne Prog'
Nico

---

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !

OK alors il peut essayer avec l'évènement OnMouseMove

pseudoOM

Je préfère de loin ma méthode...

@+
Bonne Prog'
Nico

---

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !

on mouse mouve ne permet que le chargement de l'image comment donc la faire disparaitre...

 

as-tu vraiment regardé ce que j'ai posté ?????????????????????????


je le remets au cas où, mais tu n'avais qu'à lire tout ce que l'on te proposait pour trouver ce code (qui marche) :
Utilise un timer, et dans la procedure OnTimer, mets ceci :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Visible := ptinrect(Button1.BoundsRect, ScreenToClient(Mouse.CursorPos));
end;
Remarque : abaisse l'intervalle du timer pour que l'application soit plus réactive

@+
Bonne Prog'
Nico

---

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !