Animation

bo_sofien Messages postés 8 Date d'inscription vendredi 25 février 2005 Statut Membre Dernière intervention 16 mars 2005 - 14 mars 2005 à 11:47
ni69 Messages postés 1418 Date d'inscription samedi 12 juin 2004 Statut Membre Dernière intervention 5 juillet 2010 - 16 mars 2005 à 20:24
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.

7 réponses

pseudoOM Messages postés 173 Date d'inscription jeudi 3 février 2005 Statut Membre Dernière intervention 30 janvier 2009
14 mars 2005 à 15:09
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
0
ni69 Messages postés 1418 Date d'inscription samedi 12 juin 2004 Statut Membre Dernière intervention 5 juillet 2010 13
14 mars 2005 à 15:32
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



<HR>
N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !
0
ni69 Messages postés 1418 Date d'inscription samedi 12 juin 2004 Statut Membre Dernière intervention 5 juillet 2010 13
14 mars 2005 à 15:37
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



<HR>
N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !
0
pseudoOM Messages postés 173 Date d'inscription jeudi 3 février 2005 Statut Membre Dernière intervention 30 janvier 2009
14 mars 2005 à 18:44
OK alors il peut essayer avec l'évènement OnMouseMove

pseudoOM
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
ni69 Messages postés 1418 Date d'inscription samedi 12 juin 2004 Statut Membre Dernière intervention 5 juillet 2010 13
15 mars 2005 à 16:17
Je préfère de loin ma méthode...


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !
0
bo_sofien Messages postés 8 Date d'inscription vendredi 25 février 2005 Statut Membre Dernière intervention 16 mars 2005
16 mars 2005 à 16:17
on mouse mouve ne permet que le chargement de l'image comment donc la faire disparaitre...
0
ni69 Messages postés 1418 Date d'inscription samedi 12 juin 2004 Statut Membre Dernière intervention 5 juillet 2010 13
16 mars 2005 à 20:24
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



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