怎样在CB下实现鼠标调用动画光标?

[rov]

[radish]

或用资源文件

[Lin]

使用API: LoadCursorFromFile

[rov]

详细点好吗?

[netgobin]

在变量声明中加入HCursor HOldCursor;
void _fastcall FormCreate(TObject* Sender)
{ HCursor HNewCursor;
HnewCursor=LoadCursorFromFile("d:\Bug.Ani");
HOldCursor=SetClassLong(Form1.Handle,GCL_HCURSOR,HNewCursor);
//储存原光标以备恢复
}
void _fastcall Button1Click(TObject* Sender)
{ HOldCursor=SetClassLong(Form1->Handle,GCL_HCURSOR,HOldCursor);
//程序关闭前恢复原光标
Close();
}