求助：如何把鼠标设置为图片的形状？ - 编程论坛

#2

余姚威尔2013-03-14 15:16

你是想问当鼠标经过图片时如何将鼠标变为你想要的图形（图片吗？）
如果是这样你可以在图片image上设置
在image组件的鼠标移动事件中,
将鼠标显示类型改为手型
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin Image1.Cursor:=crHandPoint;end;
要注意,
当鼠标离开之后,要恢复鼠标的指针形态如:procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin Image1.Cursor:=crDefault;
//Image1组件直接放在窗体上,如果不是在窗体上,你想想吧
end.
如果你只是想改变鼠标的图形，你可以设置窗体的cursor的属性，按照你想要的需改鼠标展现的形状。

#3

Evenchao2013-03-14 21:13

回复 2楼余姚威尔

不好意思，可能我描述的不是很清楚。。我想实现的是，像画板一样，当点击铅笔按钮时，当鼠标移到绘图区域时，鼠标的形状变为铅笔，而不是手型或者其他一些形状，而是想把它设置为我刚点击的铅笔的形状。这样表述，清楚了吗？

#4

有容就大2013-03-16 14:25

回复 3楼 Evenchao

你做什么项目感觉在开发类似PS的程序

#5

Evenchao2013-03-16 19:56

恩。。正在做毕业设计。。就是做一个画板。。可是不知道这个该怎么实现。。。急。。