What does my cursor look like ?

Recently I needed to render the Screen's Cursor image to

a bitmap. This is how to do it.


  HCursor: THandle;


  //Get the handle of the current cursor

  HCursor := Screen.Cursors[Ord(Screen.Cursor)];

  //Draw the icon to a canvas




See DrawIconEx in the Delphi help for combinations which may replace DI_NORMAL, like DI_MASK or DI_DEFAULTSIZE


Share this article!

Follow us!

Find more helpful articles: