Combobox in Gruppen unterteilt

Thema durchsuchen

Ansicht

Themen-Optionen

Combobox in Gruppen unterteilt

Ein Thema von Jack and the Juice · begonnen am 24. Feb 2011 · letzter Beitrag vom 25. Feb 2011

Vorheriger Beitrag

Nächster Beitrag

markus5766h

Registriert seit: 5. Mär 2009
Ort: Hamburg
569 Beiträge

Delphi XE8 Professional

#16

AW: Combobox in Gruppen unterteilt

25. Feb 2011, 15:16

Hallo, so kannst Du rauf- und runter Scrollen :

markieren

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

Markus H.

Geändert von markus5766h (25. Feb 2011 um 15:46 Uhr)