Hallo, so kannst Du rauf- und runter Scrollen :
Code:
procedure TForm1.ComboBox1Select(Sender: TObject);
begin
if (ComboBox1.ItemIndex > 1) and (ComboBox1.Items[ComboBox1.ItemIndex -1][1]='_')
then ComboBox1.ItemIndex:=ComboBox1.ItemIndex -2
else
if ComboBox1.ItemIndex +1 < ComboBox1.Items.Count then
if (ComboBox1.Items[ComboBox1.ItemIndex +1][1]='_')
then ComboBox1.ItemIndex:=ComboBox1.ItemIndex +2;
end;
... sorry, funktioniert auch nur bis zum Gruppen-Eintrag