如何将系统光标画出来?(100分)

dyf · 2002-01-15

TCursor只有load之类方法，怎么不能保存下来？那位知道

卷起千堆雪tyn · 2002-01-15

说明白点.

老赵 · 2002-01-15

记得是用
vAR MyCursor: TIcon;
begin
GetCursorPos(DrawPos);
MyCursor := TIcon.Create;
MyCursor.Handle := Getcursor();
...
然后在画到canvas上。
具体忘了。你自己写吧。

dyf · 2002-01-15

var
bmp:Tbitmap;
cur:TCursor;
begin
cur:=LoadCursor(0, IDC_ARROW);
// How can i do this
bmp.Canvas.draw(cur);
end;

zhaohai9 · 2002-01-15

有用吗，用资源编辑器直接拿出来不好吗？

卷起千堆雪tyn · 2002-01-15

是想将ICON保存？

var
Icono:TIcon;
Bitmap:TBitmap;
begin
Icono:=TIcon.create;
Bitmap:=TBitmap.create;
Icono.LoadFromFile('c:/.....ico');
Bitmap.Height := Icono.Height;
Bitmap.Width := Icono.Width;
Bitmap.Canvas.Draw(0, 0, Icono);
Bitmap.SaveToFile('c:/.....bmp');
Icono.Free;
Bitmap.Free;
end;

老赵 · 2002-01-15

好啦，搞定。
procedure TForm1.Button1Click(Sender: TObject);
var
MyCursor: TIcon;
begin
MyCursor := TIcon.Create;
MyCursor.Handle := Getcursor();
form1.canvas.Draw(100,100 , MyCursor); {画上鼠标}
end;

dylb · 2002-01-15

用资源文件，将Delphi缺省的光标换掉都可以的！

datoncg · 2002-01-15

搞定

dyf · 2002-01-15

谢谢各位
老赵:你的办法可行

dyf · 2002-01-15

接受答案了.

如何将系统光标画出来?(100分)

dyf

Unregistered / Unconfirmed

卷起千堆雪tyn

Unregistered / Unconfirmed

老赵

Unregistered / Unconfirmed

dyf

Unregistered / Unconfirmed

zhaohai9

Unregistered / Unconfirmed

卷起千堆雪tyn

Unregistered / Unconfirmed

老赵

Unregistered / Unconfirmed

dylb

Unregistered / Unconfirmed

datoncg

Unregistered / Unconfirmed

dyf

Unregistered / Unconfirmed

dyf

Unregistered / Unconfirmed

Similar threads