Question

delphi中怎么在鼠标按下image空间中的ICO图像时，鼠标变成image的ICO图像？

delphi中怎么在鼠标按下image空间中的ICO图像时，鼠标变成image的ICO图像？并且image中的图像清空，这样实现图像被拖动的视觉效果。

Answer 1

在 image 的 OnMouseDown 事件中实现
1 更新鼠标
2 清除图象

var
cnt:integer;
begin
//把image中的ico 图象保存为xx.ico，并加载到光标数组里
cnt:=screen.CursorCount+1;
self.Image1.Picture.SaveToFile('xx.ico');
screen.Cursors[cnt]:=windows.LoadCursorFromFile('xx.ico');

//更新鼠标
self.Cursor:=cnt;
//清除图象
self.Image1.Picture:=nil;
end;

Answer 2

用image的事件，