delphi - 如何在循环中定期更改 TLabel 标题？

Question

我想让 TLabel 标题在循环中以固定间隔显示 TListbox 的项目。
在 Listbox1: TListbox我有这些项目:

Item1
Item2
Item3
Item4 

我有一个 Label1: TLabel我想显示 Listbox1 的每一项依次持续 4 秒。显示最后一个项目后，它应该返回以显示第一个项目。
我不知道该怎么做，但我尝试使用此代码..但它不起作用

var
  i:integer
begin
  for i:=0 to Listbox1.Items.count do    
    Label1.Caption := Listbox1.items[i];

有什么办法吗？

Answer 1

您需要一个地方来存储所显示项目的索引，直到需要更改到下一个。因此，创建一个 integer 类型的字段在 private表格的一部分并称之为 IndexCounter您还需要一些东西来设置标签更改频率的速度。放下 TTimer在表格上。设置其Interval属性设置为 4000(以毫秒为单位)。
选择添加的计时器后，切换对象检查器以显示事件，然后双击 OnTimer 的输入字段。 .为您创建了该事件的程序:

procedure TForm1.Timer1Timer(Sender: TObject);
begin

end;

填写代码增加 IndexCounter并使用整数除法余数函数 ( mod ) 获取范围 0..ListBox1.Count-1 中的值。

IndexCounter := (IndexCounter + 1) mod ListBox1.count;
添加代码以显示索引为 IndexCounter 的列表框项.

Label1.Caption := ListBox1.Items[IndexCounter];