Détecter souris hors d'un Timage

Question

Salut @ tous !
Voilà, je suis en train de créer une application dont le design est totalement modifié, et là j'en suis aux boutons agrandissement quitter, et réduire.
J'aimerais qu'au passage de la souris, l'image qui est présente dans le Timage (que j'utilise comme bouton) change, ce que je fais avec ca:

procedure TForm1.reduireMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  form1.petit.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'reduire2.bmp');
end;

mais j'aimerais que lorsque la souris n'est plus sur le Timage nommé "reduire", l'image redevienne celle de base (reduire.bmp). Si quelqu'un a une idée pour détecte quand la souris n'est plus sur le Timage...

 ;) Ne dors pas trop la nuit pour pouvoir faire une sieste le jour ! ;)

yoghisan · Answer

Soit tu peux recreer un composant TImage auquel tu rajouter les evenements 

Voici une partie du code

procedure WndProc(var Message : TMessage); override;

procedure TForm1.WndProc(var Message : TMessage);
begin
case Message.Msg of
// La souris 'entre' sur le composant
CM_MOUSEENTER : begin 
// Code...
      end;
// La souris 'sort' du composant
CM_MOUSELEAVE : 
// Code...
end;
inherited; // Continuer a faire passer le message
end;


TU peux si tu veux vraiment créer les evenements 'OnMouseEnter' et 'OnMouseLeave'

Si tu as besoin de plus, je te filerais le code pour ton nouveau composant. Ta question m'interesse et ce n'est pas trop long normalement donc je vais le faire. Si tu veux demande.

JackTheRipp3r · Answer

Juste une dernière question :
C'est où qu'on spécifie le nom du composant concerné par les lignes de code ?

 ;) Ne dors pas trop la nuit pour pouvoir faire une sieste le jour ! ;)

JackTheRipp3r · Answer

Parce que là dès que ma souris est quleque part sur la form1, le composant timage appelé "petit" qui sert de bouton de réduction de la form change d'image, moi je voudrais que ca n'arrive que lorsque la souris est sur l'image...
il faut que je m'amuse avec des  getcursorpos et des case les coordonnées de la souris of... pour savoir si la souris est sur le composant concerné ?
Je sais pas si c'est  clair mais je me comprends, j'espère que toi aussi... :big) 
 ;) Ne dors pas trop la nuit pour pouvoir faire une sieste le jour ! ;)

yoghisan · Answer

Ta première question me laisse perplexe car tu ne dois pas utiliser la source correctement car le nom du composant n'a pas besoin d'etre specifié. Je m'explique...

Il faut que tu installes le nouveau composant (TImageMouse) en installant le fichier "ImageMouse.pas".
Cliquer sur "Composant" - "Nouveau Composant"
Un nouveau onglet (David) devrait apparaitre et la tu trouveras le nouveau composant.

Ca devrait marcher en utilisant ce composant et tu n'auras pas ton probleme.

Maintenant si tu as copié le code sur ton unité, c'est normal que ca ne marche pas car le code permet de capter les événements sans faire attention au composant que l'on "entre" ou que l'on "quitte". C'est pour ca que j'ai crée des composants, c'est plus simple ainsi. Chaque composant aura ainsi son evenement.

Regarde bien l'exemple et son contenu. UTILISE UN NOUVEAU COMPOSANT OU TU TROUVERAS LES EVENEMENTS ONMOUSEENTER ET ONMOUSELEAVE

J'espere que l'on parle de la meme chose

JackTheRipp3r · Answer

Ok merci

 ;) Ne dors pas trop la nuit pour pouvoir faire une sieste le jour ! ;)

Détecter souris hors d'un Timage

5 réponses

Votre réponse

Discussions similaires