鼠标显示的问题：怎么在程序运行时，鼠标的显示图形不是系统规定的TCursor中的图形，而是自己导入的图形，小的动画等。

[fangerhua]

鼠标显示的问题：怎么在程序运行时，鼠标的显示图形不是系统规定的TCursor中的图形，而是自己导入的图形，小的动画等。

[僵哥]

cu:HCURSOR ;
FileName:String;

FileName:=ExtractFilePath(Application.ExeName);
if Length(FileName)>3 then FileName:=FileName+'\';
FileName=FileName+'Cursor.ani';

cu:=LoadCursorFromFile(PChar(FileName));
Screen.Cursors[crHourGlass]:=cu; //crHourGlass为Cursor Index当中的忙状态索引号

[xixuemao]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtDlgs, StdCtrls;

type
TfrmMain = class(TForm)
btnCursor: TButton;
OpenDialog1: TOpenDialog;
procedure btnCursorClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure WMSETCURSOR(var M:TWMSETCURSOR); message WM_SETCURSOR;
public
{ Public declarations }
end;

var
frmMain: TfrmMain;
MyCursor:HCURSOR;
implementation

{$R *.dfm}
{$R Cursor.res}

procedure TfrmMain.btnCursorClick(Sender: TObject);
begin
if self.OpenDialog1.Execute then
begin
MyCursor:=LoadCursorFromFile(PAnsiChar(self.OpenDialog1.FileName));//装载自己的图标
end;
end;

procedure TfrmMain.WMSETCURSOR(var M:TWMSETCURSOR);
begin
SetCursor(MyCursor);
end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
MyCursor:=LoadCursor(hInstance,'NEWCURSOR');
end;

end.