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.