delphi - 在 TTabSheet 的选项卡上显示事件的简单方法

Question

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

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

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

Answer 1

更新:

最简单的方法可能是这样的:

• 将 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 设置为零，工作完成后，您可能还会有一些逻辑来为选项卡设置默认图像。