No replies to this topic

[sir.dev.a.lot]

[TRUCO DELPHI] Obtener la imagen del Puntero / Cursor.

delphi

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;

Ejemplo de uso:

delphi

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

Saludos!