delphi - 双组合框选择依赖性

Question

我想要一个包含以下项目的 2 个下拉组合框:

• 组合1:宠物水果。

• 组合2:如果选择宠物，则组合框2items.Add:狗、猫、鸡

如果水果被采摘，则combobox2items.Add:甜瓜、橙子、苹果

所以我尝试这样做:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Items.Add('Pets');
  ComboBox1.Items.Add('Fruits');
end;

procedure TForm1.ComboBox2Change(Sender: TObject);
begin
  if ComboBox1.ItemIndex = 1) then 
    ComboBox2.Items.Add('Dog');
  ComboBox2.Items.Add('Cat'); 
  ComboBox2.Items.Add('Chicken');

  if ComboBox1.ItemIndex = 2) then 
    ComboBox2.Items.Add('Melon');
  ComboBox2.Items.Add('Orange'); 
  ComboBox2.Items.Add('Apple');    
end;

我的代码无法运行。如何以简单的方式解决这个问题？

Answer 1

您需要像这样使用 begin..end :

if ComboBox1.ItemIndex = 1 then
begin 
  ComboBox2.Items.Add ('Dog');
  ComboBox2.Items.Add ('Cat'); 
  ComboBox2.Items.Add ('Chicken');
end;

if ComboBox1.ItemIndex = 2 then 
begin
  ComboBox2.Items.Add ('Melon');
  ComboBox2.Items.Add ('Orange'); 
  ComboBox2.Items.Add ('Apple');
end;

此外，您需要在添加新项目之前清除组合框；