Delphi中如何把鼠标设置为一张图片？ 就像画板一样，点击铅笔时，在绘画区域鼠标显示的是铅笔的形状

你是想问当鼠标经过图片时如何将鼠标变为你想要的图形（图片吗？）
如果是这样你可以在图片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的属性，按照你想要的需改鼠标展现的形状。

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

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

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