Using custom cursors

Hi,

i wanna know how i can add custom cursors to my application so i can select it from the
Cursor propertie.

ps: i have the .cur files (in my case ZoomIn.cur and ZoomOut.cur)

thanks.
hexabrAsked:
Who is Participating?

[Webinar] Streamline your web hosting managementRegister Today

x
 
Zip58Connect With a Mentor Commented:
Hi hexabr

You need to putt the cursors into a resource file

const

  crMyCustomCursor = 6;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Screen.Cursors[crMyCustomCursor] := LoadCursor(HInstance, 'NewCursor');
  Cursor := crMyCustomCursor;
end;

Regards

Zip58

0
 
hexabrAuthor Commented:
thanks man =]
0
All Courses

From novice to tech pro — start learning today.