Mouse - desenhar o cursor no canvas

Top  Previous  Next

{

The DrawCursor procedure draws a current cursor image

on ACanvas at the Position point.

}

 

procedure DrawCursor (ACanvas:TCanvas;

                      Position:TPoint);

var

  HCursor : THandle;

begin

  HCursor := Screen.Cursors

             [Ord(Screen.Cursor)];

  DrawIconEx(ACanvas.Handle, Position.X, Position.Y,

             HCursor, 323200, DI_NORMAL);

end;

 

{

Usage (top-left on a form1):

 

DrawCursor(form1.Canvas,Point(0,0));

}