增加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;
来自计时器 Interval 属性设置为30000毫秒我会在其中使用此代码 OnTimer 打勾事件。对于此代码,您必须在组合框中至少有一个项目:
Interval
OnTimer
procedure TForm1.Timer1Timer(Sender: TObject); begin ComboBox1.ItemIndex := (ComboBox1.ItemIndex + 1) mod ComboBox1.Items.Count; end;