Discussion :

[Lung]

J'ai bien trouvé ca :

Screen.Cursor changes the cursor of your application. "Component".Cursor
changes the cursor of one component if Screen.Cursor = crDefault. If
Screen.Cursor <> crDefault you cannot change a component's cursor.

Changing a component's cursor property does not refresh the cursor, it
is refreshed when it is moved. You can simulate this:

Panel1.Cursor := SomeCursor;
Panel1.Parent.Perform (WM_SETCURSOR,Parent.Handle,HTCLIENT);

or (if the first one does not work for some reason)...

Panel1.Cursor := SomeCursor;
Mouse_Event (MOUSEEVENTF_MOVE,1,0,0,0);
Mouse_Event (MOUSEEVENTF_MOVE,-1,0,0,0);

Panel1.Parent.Perform (WM_SETCURSOR,Parent.Handle,HTCLIENT) forces the
cursor shape to
refresh, the second method is just a trick: move the cursor one pixel to
the right and one to the left again, which makes it refresh, too.

Jens

Mais, ca n'a aucun effet ...

Quelqu'un aurait une idée ?

[hassanibi]

voir : http://www.developpez.net/forums/viewtopic.php?t=391654

[Lung]

voir : http://www.developpez.net/forums/viewtopic.php?t=391654

Je l'avais déjà vu. Mais ca ne parle que d'affecter son propre curseur à un objet. C'est pas ca qui me pose problème.
C'est que malgré un MonObjet.Cursor := TelCurseur;, le curseur de l'objet ne change pas. C'est toujours le précédent curseur que je vois, et non le nouveau.
Je cherche donc le moyen d'obliger l'objet (ou l'application) à prendre en compte la modification, et à l'appliquer immédiatement.

Une autre idée ... ?

[Tofalu]

A priori, si tu veux juste changer le curseur par un "par défaut", un simple :

Code :

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

Panel1.Cursor := crHelp;

Par exemple devrait suffir

[Lung]

A priori, si tu veux juste changer le curseur par un "par défaut", un simple :

Code :

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

Panel1.Cursor := crHelp;

Par exemple devrait suffir

C'est ce que je pensais, mais parfois ca ne suffit pas, car ca n'a aucun effet. La syntaxe est correcte puisque ca compile, mais le curseur ne change pas (visuellement).

[DMO]

Je fais généralement :

Code :

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

Screen.Cursor := crCeQueTuVeux;

Cela ne fonctionne pas dans ton cas ?

[Lung]

Je fais généralement :

Code :

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

Screen.Cursor := crCeQueTuVeux;

Cela ne fonctionne pas dans ton cas ?

Pas toujours.
Il y a des cas où ca n'a aucun effet.
Le but de ma question était de savoir, s'il y a moyen de forcer à prendre en compte ce changement.

:

[DMO]

Autant pour moi ce fut une suggestion peu judicieuse.

Dans une nouvelle appli, j'ai posé un Timer sur lequel je change le curseur de l'écran. Sans bouger ma souris, j'en vois effectivement les effets immédiatement, ce qui me fait douter de

Changing a component's cursor property does not refresh the cursor, it is refreshed when it is moved.

En regardant TControl.SetCursor, ou le cas plus spécifique de TScreen.SetCursor, je m'aperçois qu'evidemment, c'est un message windows qui est envoyé pour que le changement de curseur soit effectif.
Dans mon appli de test, si ca fonctionne, c'est que l'application ne fait que cela. La tienne doit véritablement travailler, ce qui fait qu'il est probable que le message, à priori, ne soit pas pris en compte quand il le faudrait. C'est pourquoi je te suggère un Application.ProcessMessages, en y fesant bien attention, puisqu'alors TOUS les messages sont traités...

[Lung]

C'est pourquoi je te suggère un Application.ProcessMessages

Bonne idée.
Je vais tester ...