Problème de curseur dans un TImageRésolu

Question

Bonjours à tous!
Je trouve habituellement les réponses à mes questions dans les sources mais la
 je n' ai rien trouvé !

Mon problème est le suivant :

Je voudrais changer le curseur dans un TImage de la manière suivante => 

--- passage sur l' image-------------------------------:Curseur 1 ( ex crArrow )
--- passage sur un TRect défini sur l'image------------:Curseur 2 ( ex crCross )
--- Mousedown sur l' image (Pour la déplacer par ex)---:Curseur 3 ( ex crHandPoint )
--- Mousedown sur un TRect défini sur l'image----------:Curseur 4 ( ex crNo)

Voila, deux curseurs pas de problème mais plus de 2 j'ai des choses aléatoires ou bien 
le curseur par défaut uniquement !!!


j' ai essayé de faire un bricolage en mettant une variable qui prends la valeur de 1..4 
que je reprend dans une procedure mais ça ne fonctionne pas !


si quelqu'un a une piste je suis preneur ! 

Enos

cs_Enos · Accepted Answer

Merci Caribensila,
c' est exactement ça que je cherchais à faire 

Par contre ssLeft in Shift je ne connais pas du tout, du coup je vais allez voir comment ça fonctionne !

" c'est ça qui est bien quand on ne connait rien, on ne peut qu' apprendre !!! "


Enos

Caribensila · Answer

Salut, Je ne vois pas de difficulté particulière. Quelque chose comme ça : procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer); begin if (X>100) and (X<150) then Screen.Cursor:= crCross else Screen.Cursor:= crArrow; end; procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer); begin if (X>100) and (X<150) then Screen.Cursor:= crNo else Screen.Cursor:= crHandPoint; end;

cs_Enos · Answer

Vu comme çà rien de compliquer effectivement mais il y à un mais !!!

Quand tu fais ça si tu a mousedown ET mousemove tu ne conserve pas le curseur mouse down !

et comme disait Napoléon ' La ça se Corse !'  

Enos

Caribensila · Answer

Ah ouais. Mais c'est pas non plus la Bérézina. Essaie ça : procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if ssLeft in Shift then if (X>100) and (X<150) then Screen.Cursor := crNo else Screen.Cursor := crHandPoint else if (X>100) and (X<150) then Screen.Cursor := crCross else Screen.Cursor := crArrow; end;

dubois77 · Answer

t'es bon Cari quand même
(surtout en histoire ! (humour))

Dubois77

dubois77 · Answer

je voulais dire : même en histoire! 

Dubois77

Problème de curseur dans un TImage

6 réponses

Votre réponse

Discussions similaires