Mouse - desenhar o cursor no canvas

{

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, 32, 32, 0, 0, DI_NORMAL);

end;

{

Usage (top-left on a form1):

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

}