在delphi中如何加入更多的鼠标形状啊！！！

Question

我想在处理图象的时候实现对图象的放大缩小等操作，但是发现delphi中自带的鼠标形状的种类非常有限，我想要一个像windows自带的图片浏览器那样的图标，但是不的怎么才能把那东西加进去，也不知道具体加到什么地方，还请大家帮帮忙！！！

Answer 1

很简单的。
1、先建立你自己的资源文件。如Cursor.res, 把你的光标加入到资源文件里。
2、在你的APPLICATION里面加入编译指示器{$R Cursor.res}
3、Screen.Cursors[cursor1] := LoadCursor(HInstance, '光标1')
   ......
   Screen.Cursors[cursorN] := LoadCursor(HInstance, '光标N')
4、剩下的就是调用光标了。

Answer 2

screen.Cursors[1]:=loadcursorfromfile('MyCur1.cur');
  screen.Cursors[2]:=loadcursorfromfile('MyCur2.cur');
  screen.Cursors[3]:=loadcursorfromfile('MyCur3.cur');
  screen.Cursors[4]:=loadcursorfromfile('MyCur_Well.cur');
  screen.Cursors[5]:=loadcursorfromfile('MyCur_Line.cur');
  screen.Cursors[6]:=loadcursorfromfile('MyCur_Fault.cur');.......paintbox1.cursors:=1;