如何实现动画光标？50分

Question

var
  Save_Cursor:TCursor;const
  crMyCursor = 1;procedure TForm1.FormCreate(Sender: TObject);
begin
  Screen.Cursors[crMyCursor]:=LoadCursorFromFile('Horse.ani');
end;procedure TForm1.BitBtn1Click(Sender: TObject);
Begin
  BitBtn1.Cursor:=crMyCursor;  //可以马上发生变化
  Save_Cursor := Screen.Cursors[crSQLWait];
  Screen.Cursors[crSQLWait]:=crMyCursor;
  try
    ......
  finally
    BitBtn1.Cursor :=crDefault;  { Always restore to normal }
    Screen.Cursors[crSQLWait]:= Save_Cursor;
  end;
end;
这是用于时间比较长的SQL查询时,把沙漏光标变成动态的奔马. 

Answer 1

to Bob7946(X度空间)　不好意思，*.ani是什么文件？动态的奔马如何做

Answer 2

ani是图标文件。
你不一定要奔马呀，在你的机器上windows下边查找一下，可以找出很多windows自带的图标文件的。

Answer 3

Bob7946(X度空间
说的对
ANI就是鼠标动画文件