[Winny]

Как программно выбрать следующий пункт меню у TComboBox? Например когда нажимаешь на кнопку. Заранее благодарен.

Всё перепробовал ничего не получается!

[<<D>>]

Код:

var i:integer;
begin
if combobox1.ItemIndex<0 then
combobox1.ItemIndex:=0
else
begin
for i:=-1 to combobox1.Items.Count-1 do
begin
if combobox1.ItemIndex=i then
begin
combobox1.ItemIndex:=i+1;
exit;
end;
end;
end;

[4kusNick]

Код:

if ComboBox1.ItemIndex + 1 < ComboBox1.Items.Count then
  ComboBox1.ItemIndex := ComboBox1.ItemIndex + 1;

[Winny]

Спасибо конечно огромное, но я уже вчера нашёл на этот вопрос ответ , но всё равно огромное спасибо!