delphi - Delphi自动滚动组合框

我想知道是否有一种方法可以自动增加或滚动组合框。

例如，我希望每30秒连续选择组合框中的下一个选项，直到达到最后一个值为止，然后它必须返回索引0并从那里继续。

这样做的原因是，组合框中的每个值都包含一个值，该值调用数据库中的数据进行显示，因为这些屏幕将无人值守，因此我希望无需用户输入即可自动更改这些屏幕。

我添加了一个计时器和以下代码，并按照下面的建议设置间隔（30000）

procedure TForm3.Timer1Timer(Sender: TObject);
begin
if ComboBox1.Index < comboBox1.Index.MaxValue then
ComboBox1.Index := +1
else
ComboBox1.Index := 0;
end;

提前致谢。

最佳答案

递增Itemindex直到Itemindex = Count-1，然后将Itemindex设置为0。

Procedure IncLoopCombobox(CB: TComboBox);
begin
  if CB.ItemIndex < CB.Items.Count - 1 then
    CB.ItemIndex := CB.ItemIndex + 1
  else
    CB.ItemIndex := 0;
end;

关于delphi - Delphi自动滚动组合框，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/17039899/