如何使用自定义光标（Using custom cursors）

[size=large]从资源文件中载入自定义光标并在你的应用程序中使用它们

Loading custom cursors from a resource file and using them in our application

1.创建光标（图片）并把它们加入到一个资源文件中。你可以使用Delphi自带的Image Editor来完成这项工作。

2.在你的任意unit中的Interface代码段声明关于光标的常量。这并不是必须的，但是这样做可以提高代码的可读性，所以强烈建议完成这一步。

3.这些常量必须是大于0的正整数，因为0和负整数被作为默认的光标已经存在了。

例如：const
crFinger = 1;
crPower = 2;

4.你必须在这个Unit的Initialization代码段，或者在你准备使用自定义光标的位置的前面从资源文件中载入你的自定义光标。

例如：{$R Cursors.res}
Screen.Cursors[crFinger] := LoadCursor(hInstance, 'FINGER');
Screen.Cursors[crPower] := LoadCursor(hInstance, 'POWER');

这里我们假定"Cursors.res"是你保存光标的资源文件，FINGER和POWER是它们的名称。

这样，你就可以像使用预置好的光标一样使用你自己定义的光标了。

例如：procedure TForm1.FormCreate(Sender: TObject);
begin
Self.Cursor := crPower;
Label1.Cursor := crFinger;
end;

值得注意的是，你可以在编程时修改它们的属性，但是它们的常量名称不能再次声明了。[/size]