delphi – 在TTabSheet的选项卡上显示活动的简单方法

基本上我想要一个活动指示器,它会一目了然地显示该选项卡上正在进行的活动计算.我正在寻找一些非常简单的东西,比如在标签上显示一个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设置为零,当工作完成时,您可能还有一些逻辑可以为选项卡提供默认图像.