MagGlassPointer example for Delphi

This example shows how to add custom cursors to an application. It assumes that a custom cursor with the name NewCursor has been added to the resources (.RC file) of the application.

const
  crNewCursor = 10;
procedure TForm1.FormCreate(Sender: TObject);
begin
  Screen.Cursors[crNewCursor] := LoadCursor(HInstance, 'NewCursor');
  LeadImage1.MagGlassPointer := crNewCursor;
end;