unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TfrmMain = class(TForm)
procedure FormClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmMain: TfrmMain;
implementation
{$R *.dfm}
procedure TfrmMain.FormClick(Sender: TObject);
var
ico:TIcon;
point:TPoint;
begin
GetCursorPos(point);
point:=ScreenToClient(point);
ico:=TIcon.Create;
ico.Handle:=GetCursor();
Canvas.Draw(point.X,point.Y,ico);
ico.Free;
end;
end.