如何在程序中使用动态鼠标?

Question

用API函数,先定义一个鼠标常量.在用screen.cursors[常量名]:=LoadCursorFrom(动态
鼠标名);最后赋值,cursor:=常量名;

Answer 1

除了上面的方法外，还可用下面是我在c++ bulider中的实现方法。你可改一下就可用了在变量声明中加入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();
}