鼠标的动态调载 Up 有分相送

Question

自定义一鼠标样式，如何动态在实时调载加入。100分

Answer 1

用 RES 文件
同时UP

Answer 2

设置一些控件的Cursor属性或通过相应的事件改变一些控件的Cursor的值。

Answer 3

to: alexzhang00(三角猫(sjcatsoft)) 
  能给个用res 调载鼠标的实例吗，先谢谢了。
楼上的各位，新年好。

Answer 4

有.cur文件的话可以直接加载到程序。或是在.res中自己制作
-------------------------------------╔♂╗┏┯┓┏┯┓┏┯┓┏┯┓╔♀╗ 
┃★┃┠新┨┠年┨┠快┨┠乐┨┃☆┃ 
┃☆┃┗┷┛┗┷┛┗┷┛┗┷┛┃★┃ 
╚♂╝↘*≡恭≡喜≡发≡财≡*↙╚♀╝ -------------------------------------

Answer 5

先定义一个常量：
const
  MY_CURSOR = 17951;假设你的资源文件中的光标名称是'Cursor001' ------------Screen.Cursors[MY_CURSOR] := LoadCursor( HInstance, 'Cursor001' );
Form1.Cursor := MY_CURSOR;

Answer 6

先定义一个常量：
const
  MY_CURSOR = 17951;假设你的外部光标文件名称是'c:\Cursor001.cur' ------------Screen.Cursors[MY_CURSOR] := LoadCursorFromFile( PChar('c:\Cursor001.cur' );
Form1.Cursor := MY_CURSOR;

Answer 7

{$R NewCursor.CUR}//这行$R不可少, 否则自订的鼠游标就出不来了
implementation
const  crMyCursor = 5;
procedure TForm1.FormCreate(Sender: TObject);
begin
  Screen.Cursors[crMyCursor] := LoadCursor(HInstance, 'NewCursor');
  Cursor := crMyCursor;
end;