我怎么做个自定义的鼠标在程序中，，，源码。。结帐好快。。。

一. 建立工程与一个资源档 
1. File | New Project 
2. File | Save Project, 将 unit1 与 project1 存起来 
假定是 c:\temp 目录 
3. Tools | Image Editor, 利用 Image Editor 新开一个 
资源档( Fild | New | Resource File ) 
4. 在这个资源档中新建一个 CURSOR_1 的 CURSOR, 设定 
好它的 Hot Spot( Image | Hot Spot ) 
5. 将资源档存起来, 存档时注意要和上述的 Project 存在 
同一个目录,且不要与 project 的原资源档档名重覆， 
在本例我们先假定为 MyCursor.res 
二. 程序部分 
6. 定义一个常数, 这个常数您必须设成大於零的任何整数 
7. 以 LoadCursor() 函数将自订的鼠标资源 load 进来 
以下为源代码 
// unit.pas 
unit Unit1; 
interface 
uses 
SysUtils, WinTypes, WinProcs, Messages, Classes, 
Graphics, Controls, Forms, Dialogs; const 
crMyCursor = 1; (* 宣告一个常数 *) 
type 
TForm1 = class(TForm) 
procedure FormCreate(Sender: TObject); 
private 
{ Private declarations } 
public 
{ Public declarations } 
end; 
var 
Form1: TForm1; 
{$R mycursor.res} // 这行 $R 不可少, 否则自订的鼠游标就出不来了 
implementation 
{$R *.DFM} 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
//将鼠标资源 load 进来 
Screen.Cursors[crMyCursor] := LoadCursor(hInstance, 
'CURSOR_1'); 
//指定 form1 的 cursor 为自订鼠标 
Cursor := crMyCursor; 
// 指定 Button1 的 cursor 为自订鼠标 
Button1.Cursor := crMyCursor; 
end; 
end.