Hallo SilentStorm,
vielleicht kannst du so vorgehen:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Items.DelimitedText := 'Nr1,Nr2,Nr3';
end;
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
case ComboBox1.ItemIndex of
0: ComboBox2.Items.DelimitedText := 'Blah,Blub';
1: ComboBox2.Items.DelimitedText := 'Alpha,Beta,Gamma,Delta,epsilon';
2: ComboBox2.Items.DelimitedText := '"Zeile 1","Zeile 2","Zeile 3"';
else
ComboBox2.Clear;
end;
if (ComboBox2.Items.Count > 0)
then ComboBox2.ItemIndex := 0
else ComboBox2.ItemIndex := -1;
end;
Wenn ein ComboBox-Eintrag Leerzeichen enthält, dann musst du ihn in doppelte Anführungszeichen einfassen, so wie es für die dritte Liste gezeigt wird.
Gruß Hawkeye