Question

delphi 中设计个性化鼠标指针

我是DELPHI的新手。。。。
自己做了个光盘启动界面。。。想设置一个自己的鼠标。
不会了。。。
请各位大哥帮帮小弟，解决一下我 问题！
谢谢你回答我的问题！
不过我很笨。。麻烦老哥你把集体步骤讲清楚一写！
Cursor.res 不知道怎么把光标文件添加到这里来。。。。

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

加载自定义的图标时,图标的后缀名为 .cur:
procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursors[1] := LoadCursorFromFile(Pchar(ExtractFilePath(Application.ExeName) + 'Icon1.cur')); //加载自定义图标
form1.Cursor := 1;
end;