Delphi自动滚动组合框

作者: 日耀九洲
发布时间: 2024-08-16 03:24:04 (4天前)
转自：

3 条回复

0#
回复此人
撩心 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 增加Itemindex直到Itemindex = Count - 1，然后将Itemindex设置为0。 </p> <pre> <code> Procedure IncLoopCombobox(CB: TComboBox); begin if CB.ItemIndex < CB.Items.Count - 1 then CB.ItemIndex := CB.ItemIndex + 1 else CB.ItemIndex := 0; end; </code> </pre> </DIV>

编辑
1#
回复此人
圈圈红 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 来自计时器 <code> Interval </code> 属性设置为30000毫秒我会在其中使用此代码 <code> OnTimer </code> 打勾事件。对于此代码，您必须在组合框中至少有一个项目： </p> <pre> <code> procedure TForm1.Timer1Timer(Sender: TObject); begin ComboBox1.ItemIndex := (ComboBox1.ItemIndex + 1) mod ComboBox1.Items.Count; end; </code> </pre> </DIV>

编辑

登录后才能参与评论