Discussion :

[Duan]

Y a t'il moyen de changer le curseur de la souris lorsque la touche "ALT" est enfoncée, comme dans Photoshop (tampon de duplication entre autres). Le curseur redevient à la normale lorsque la touche est relâchée. Je peux le faire avec une combinaison (mousedown) mais pas seul
Merci!

[DOLPat®]

Bonjour

Tu peux faire ceci par exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ssAlt in Shift then
    Screen.Cursor:=crCross;
end;
 
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if not (ssAlt in Shift) then
    Screen.Cursor:=crDefault;
end;

[Charly910]

Bonjour,

c'est peut être inutile, mais est ce qu'il ne faudrait pas sauver le curseur courant dans une variable TCursor pour le restituer ensuite au cas ou le curseur courant n'était par crDefault ?

je ne sais pas si crDefault stocke le curseur courant de la fenêtre ou bien s'il stocke toujours crArrow ?
@+

Charly

PS : J'ai fait un test : si on veut être sûr de restaurer l'état initial : il faut bien stocker l'ancien curseur dans le code du onKeyDown - sinon on restitue systématiquement la flèche

[DOLPat®]

c'est peut être inutile, mais est ce qu'il ne faudrait pas sauver le curseur courant dans une variable TCursor pour le restituer ensuite au cas ou le curseur courant n'était par crDefault ?

Bonjour

Je ne suis pas dans le secret des Dieux. Mon code est un exemple (vite fait ) et nul doute que notre ami Duan saura l'adapter à ses besoins. D'ailleurs, je ne sais même pas quel type de curseur il veut lorsque la touche Alt est active. J'ai mis un beau p'tit crCross au pif...

[Duan]

Bonjour

Je ne suis pas dans le secret des Dieux. Mon code est un exemple (vite fait ) et nul doute que notre ami Duan saura l'adapter à ses besoins. D'ailleurs, je ne sais même pas quel type de curseur il veut lorsque la touche Alt est active. J'ai mis un beau p'tit crCross au pif...

Le pif est bon , j'ai modifié le crCross afin que celui-ci devienne une cible pour indiquer le point central d'un TRect qui sera recopié ailleur. En fait, j'essaie de faire un tampon de duplication afin de corriger "l'union" de 2 cartes topo côte à côte.

En tout cas, milles merci, ça marche impeccable. j'étais coincé avec le TImage qui n'as pas de keyDown/Up

Salutation

Duan