请高手解答啊

Question

在Delphi 7系统中，如何给ComboBox控件中加项目，要详细的步骤啊，谢谢了啊

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  ComboBox1.Clear; //清除原有的項
  ComboBox1.Items.Add('Test1');//添加一個項，如果添加多項，可以用循環。
end;

Answer 2

同意楼上ComboBox1.Items.Add('')；

Answer 3

控件属性列表里找到items点开也可以添加。代码添加如楼上所示

Answer 4

  with ComboBox1.Items do //添加多个项
  begin
    Add('test1');
    Add('test2');
    Add('test3');
    Add('test4');
    Add('test5');
    Add('test6');
    Add('test7');
    Add('test8');
  end;  ComboBox1.ItemIndex := 0; //设置默认选中项
  ComboBox2.Items := ComboBox1.Items; //可以这样将项传递给第二个ComboBox

Answer 5

delphi7又不是win7一样的，combobox.add

Answer 6

procedure TForm1.Button2Click(Sender: TObject);
var
  i:Integer;
begin
  //给ComboBox1添加100项
  for i:=0 to 100 do
  begin
    ComboBox1.Items.Add(IntToStr(i));
  end;
  //设定第一项显示在ComboBox1文本框
  ComboBox1.ItemIndex:=0;
end;Delphi7,WindowsXP下调试通过.