Probleme bei ComboBox

[DeddyH]

Mal ein sinnfreies Beispiel (mit Abfrage des ItemIndex, Du hast richtig vermutet )

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Style := csOwnerDrawFixed;
  with ComboBox1.Items do
    begin
      Add('Erstes Thema');
      Add('Zweites Thema');
      Add('Drittes Thema');
    end;
  ComboBox1.ItemIndex := 0;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  ComboBox2.Items.Clear;
  case ComboBox1.ItemIndex of
    0: begin
         with ComboBox2.Items do
           begin
             Add('Item 1 zu Thema 1');
             Add('Item 2 zu Thema 1');
             Add('Item 3 zu Thema 1');
           end;
       end;
    1: begin
         with ComboBox2.Items do
           begin
             Add('Item 1 zu Thema 2');
             Add('Item 2 zu Thema 2');
             Add('Item 3 zu Thema 2');
           end;
       end;
    2: begin
         with ComboBox2.Items do
           begin
             Add('Item 1 zu Thema 3');
             Add('Item 2 zu Thema 3');
             Add('Item 3 zu Thema 3');
           end;
       end;
  end;
  ComboBox2.ItemIndex := 0;
end;