在 Delphi 7 的表格上显示动画.ani cursor

Question

我的应用程序正在使用单独的线程在后台从数据库中加载列表项。 在加载过程中，用户可以与应用程序交互，所以我不想更改默认的 cursor。 尽管如此，为了直观地显示加载过程，我想在我的表单上显示 Windows 忙碌（沙漏，IDC_WAIT）cursor，就像动画图像一样。 最简单的方法是什么？ 我正在考虑转换为 GIF 并在 GIFImage 中显示，但我想显示默认的 Windows cursor （从而动态地从系统获取资源）。

注意：我使用的是 Delphi7。

Answer 1

只是部分解决方案：声明变量

h: HICON;
FFrameIdx: Integer;

然后加载 cursor：

h := LoadImage(0, MakeIntResource(OCR_WAIT), IMAGE_CURSOR, 0, 0, LR_SHARED);

然后在OnPaint处理程序中绘制当前帧：

DrawIconEx(Canvas.Handle, 100, 100, h, 0, 0, FFrameIdx, 0, DI_NORMAL);

要对其进行动画处理，您可以将TTimer与以下代码一起使用：

Inc(FFrameIdx);
Invalidate; // or something more suitable

要尝试此操作，您只需将变量放入新 VCL 应用程序的主窗体 class（在private下方）中，将LoadImage放在窗体的OnCreate处理程序中，将DrawIconEx放在OnPaint处理程序中。

但是如果你想在一个真正的应用程序中使用它，你最好用它创建一个新的自定义控件。

显然，您需要将FFrameIdx替换为FFrameIdx mod FFrameCount或Inc(FFrameIdx)替换为FFrameIdx:= Succ(FFrameIdx) mod FFrameCount ，其中FFrameCount是动画 cursor 中的帧数。

您还应该设置计时器的Interval以匹配光标的帧速率。