如何将Delphi中TTabSheet的选项卡巧妙地改写为展示当前活动页面的长尾表达？

本文共计473个文字，预计阅读时间需要2分钟。

我想要一个动态指示器，它能指向当前显示的选项卡，并实时显示正在进行的活动。我正在寻找一些非常简单的功能，比如在标签上显示一个GIF，或者展示一系列随时间变化的字符字符串。

基本上我想要一个活动指示器,它会一目了然地显示该选项卡上正在进行的活动计算.我正在寻找一些非常简单的东西,比如在标签上显示一个gif,或者显示一系列随计时器而变化的字符串.我不想要复杂的解决方案或需要新组件的解决方案.

我已经有了一个实现,但是我遇到了一个问题,我在这里要求更具体的解决方案：How to show backslash in a japanese locale

如果没有其他问题的解决方案,或者有一个明显更好的方法,我会问更一般的问题.无论如何,我确信会有其他人可以用一种好方法来做到这一点.

更新：

最简单的方法可能就是：

>在表单中添加TImageList.
>将动画图像添加到图像列表.
>将常量cMaxImageIndex设置为动画列表的最后一个索引.
>将ImageList连接到TPageControl.
>声明一个函数NextImageIndex.
>适当时激活计时器.
>在计时器事件中,设置标签页ImageIndex属性.

看代码：

Const cMaxImageIndex = 5; procedure TForm1.FormCreate(Sender: TObject); begin FImageIndex := 0; end; function TForm1.NextImageIndex: Integer; begin Inc(FImageIndex); if (FImageIndex > cMaxImageIndex) then FImageIndex:= 0; Result := FImageIndex; end; procedure TForm1.Timer1Timer(Sender: TObject); begin PageControl1.Pages[0].ImageIndex := NextImageIndex; end;

注意：在激活计时器之前,将FImageIndex设置为零,当工作完成时,您可能还有一些逻辑可以为选项卡提供默认图像.