使用 ANI 动画光标(50分)

question · 1999-07-07

如何在程序中使用动画光标 (*.ANI)?及程序中的光标是动画光标 类似使用了 Win98 桌面布景后的鼠标状态. 要能在 Delphi 4 下运行的. Tnank you!

nuke · 1999-07-07

去看rxlib里的例子！有原玛

menxin · 1999-07-07

LoadCursorFromFile('.../?.ani')装载即可 至于达到桌面布景效果，要将系统icon替换。

wgzhang · 1999-07-07

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;

wgzhang · 1999-07-07

忘了说,这是用于时间比较长的SQL查询时,把沙漏光标变成动态的奔马.

question · 1999-07-07

我需要从资源文件中读 ANI 信息 不是一个ANI 文件中 即先将 ANI 编译到 RES 文件中，后在程序中引用。

Another_eYes · 1999-07-08

运行时先把resource中的动画光标存成一个临时ani文件再用loadcursorfromfile不就成了?

question · 1999-07-08

TO Another_eYes: 那样不妥，我想得到的结果就和从资源文件中读普通光标一样的效果， 及使用 Screen.Cursors[1]:=LoadCursor(HInstance,ctANI,'AAA'); 类似的语句，同时我的资源文件的编写如下： ANIRES.RC AAA RCDATA "AAA.ANI" BBB RCDATA "BBB.ANI" CCC RCDATA "CCC.ANI" 有方法解决吗？最好能给出函数。

柳五公子 · 1999-07-08

我用了一个急丑陋的方法解决了这个问题，我吃玩放再试一下，有没有更好的方法。

柳五公子 · 1999-07-08

我想了半天，还是没有更好的办法，只能把我的办法贴出来，抛砖引玉吧~-~！ 首先用 Screen.Cursors[1]:=LoadCursor(HInstance,'AAA');是不可以的， 因为资源文件中只能定义成： AAA RCDATA "AAA.ANI" 而非： AAA CURSOR "AAA.ANI" 我的解决办法如下： procedure TForm1.Button2Click(Sender: TObject); var   resstrm :TResourceStream;   fname   :string; begin   fname := ExtractFilePath(paramstr(0))+'tmp.ani';   resstrm := TResourceStream.Create(Hinstance,'AAA',RT_RCDATA); //！！！   resstrm.SaveToFile(fname);   Screen.Cursors[crMyAni] :=LoadCursorFromFile('tmp.ani');   panel3.Cursor := crMyAni;   DeleteFile(fname);   resstrm.Free; end; 这种方法是肯定能用的，就是比较难看！：-（

Another_eYes · 1999-07-10

公子, 人家说了文件方法不妥(我也不知道不妥在哪里).

question · 1999-07-10

谢谢各位,既然没有更好的方法,只有结束问题了 Sigh

question · 1999-07-10

多人接受答案了。

使用 ANI 动画光标(50分)

question

Unregistered / Unconfirmed

nuke

Unregistered / Unconfirmed

menxin

Unregistered / Unconfirmed

wgzhang

Unregistered / Unconfirmed

wgzhang

Unregistered / Unconfirmed

question

Unregistered / Unconfirmed

Another_eYes

Unregistered / Unconfirmed

question

Unregistered / Unconfirmed

柳五公子

Unregistered / Unconfirmed

柳五公子

Unregistered / Unconfirmed

Another_eYes

Unregistered / Unconfirmed

question

Unregistered / Unconfirmed

question

Unregistered / Unconfirmed

Similar threads