[SOLVED] How to change Windows cursor

[Pe3s]

Hello, how can I safely change the Windows cursor while the application is running and restore the default one?

[Zvoni]

Change as in System-Wide?

Don't!
Any program that changes anything in my System/OS goes straight into the rubbish bin....

If you want custom Cursors for your Program, use the Curser-Property of your Form(s), Controls, whatever.
User works with your Program, the cursor changes to your selected cursor, while when User opens Another Program in parallel it goes back to the standard cursor, as long as the user is "out of" your program

[Pe3s]

I meant something like this: when picking a color from the screen, the cursor changes to a cross and returns to the system arrow after clicking.

[Zvoni]

I meant something like this: when picking a color from the screen, the cursor changes to a cross and returns to the system arrow after clicking.

Cursor-Property of TScreen?
https://lazarus-ccr.sourceforge.io/docs/lcl/forms/tscreen.cursor.html

[Pe3s]

I agree, but apart from the application, the cursor is standard.

[Xenno]

In an app involving a mouse hook I've built years ago, I rely on code as below:

Code: Pascal  [Select][+][-]

1. var
2.   CurHnd: HCursor;
3.  
4.   // change
5.   CurHnd := LoadCursor(0, IDC_CROSS); // IDC_....
6.   SetSystemCursor(CurHnd, OCR_NORMAL);
7.  
8.   // restore
9.   SystemParametersInfo(SPI_SETCURSORS, 0, Nil, 0);

While my app restores mouse cursor in a message handler (sent by the mouse hook dll), it could also be simplified in try-finally.
 

Code: Pascal  [Select][+][-]

1.   // change
2.   CurHnd := LoadCursor(0, IDC_CROSS); // IDC_....
3.   SetSystemCursor(CurHnd, OCR_NORMAL);
4.   try
5.     // ..
6.     // your code
7.     // ..
8.   finally
9.     // restore
10.     SystemParametersInfo(SPI_SETCURSORS, 0, Nil, 0);
11.   end;

Cursor might use .cur file.

[Pe3s]

Thank you