请问程序如何使用自定义的鼠标，就像游戏中的那样

Question

请问程序如何使用自定义的鼠标，就像游戏中的那样

Answer 1

这个要用到windows api函数
代码没有,但很容易找到到，而且很容易就实现得到。
如果想简单一点就使用
system.curcor:=ctglass;(不过这个鼠标型状只能是windows自带的）

Answer 2

程序中使用自定义的鼠标  
一.建立工程与一个资源档用Image Editor编辑一个鼠游标（Fild|New|Resource File）新建一个CURSOR_1的CURSOR, 设定好它的HotSpot（Cursor|SetHotSpot）存档时注意要和建立的Project存在同一个目录在本例我们先假定为 MyCursor.res。 
  二.程序部分定义一个常数crMyCursor,这个常数您必须设成大於零的任何整数，以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'); 
  Cursor := crMyCursor;//指定 form1 的 cursor 为自订鼠标 
  Button1.Cursor := crMyCursor;//指定Button1的cursor为自订鼠标 
  end; 
  end.

Answer 3

Screen.Cursors[crMyCursor] := LoadCursorFromFile('c:\mystuff\mycursor.ani'); 
Cursor := crMyCursor; 

Answer 4

要先做一些资源啦ICO的，至于套用到DELPHI的程序里面是很简单的，楼上的都行！