Combobox in Gruppen unterteilt

[freak4fun]

Du meinst sowas, richtig?

[Jack and the Juice]

Ganz genau, wie dort beschrieben:

Zitat:

Die meisten aktuellen Browser beschränken sich bei der Darstellung jedoch auf eine visuelle Unterscheidung der Untergruppen (als Beispiel ein Screenshot aus Opera 8.5):

So in der Art wäre das schön.

[Jack and the Juice]

Hallo Guido,

vielen Dank für deine Erklärung und das Beispiel. Das bringt mich doch ein ganzes Stück weit nach vorn.
Werde das soweit mal testen und gegenebenfalls noch anpassen. Sieht auf den ersten Blick jedoch sehr gut.

Also, danke nochmals und beste Grüße aus Lübeck!

[markus5766h]

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

[Guido R.]

So sollte es klappen :

Erstelle eine Variable "oldindex" vom Typ Integer und initialisiere sie mit -1;

Delphi-Quellcode:

procedure TForm1.ComboBox1Select(Sender: TObject);
Var newIndex : Integer;
begin
 newIndex := ComboBox1.ItemIndex;
 if ComboBox1.Items[ComboBox1.ItemIndex][1]='_'
  then begin
        if oldindex<newIndex
         then while (ComboBox1.Items.Count>(newIndex)) AND (ComboBox1.Items[newIndex][1]='_') // runterscrollen
               do newIndex:=newIndex+1
         else while (newIndex>-1) AND (ComboBox1.Items[newIndex][1]='_')                      // raufscrollen
               do newIndex:=newIndex-1;
        if (newIndex>ComboBox1.Items.Count-1) or (newIndex<=-1)  // Ausserhalb des gültigen Bereiches ?
         then newIndex := oldIndex;
        ComboBox1.ItemIndex := newIndex;
       end;
 oldindex := newIndex;
end;

Alternativ kann man den Wert für "oldindex" auch im "Tag" der ComboBox ablegen. Das hätte den Vorteil, dass man die selbe Funktion für mehrere ComboBoxen nutzen kann, wenn man diese dann über den Sender

Code:

(Sender AS tComboBox). statt ComboBox1.

anspricht.

Ideal wäre natürlich eine eigene Klasse abzuleiten, in der man oldindex und die Grouping-Funktionen integriert...

Gruß
Guido R.