procedure TForm1.Button1Click(Sender: TObject);
var
  MyComBo:TComboBox;
  i:integer;
begin
  MyComBo:=TComboBox.Create(self);
  MyComBo.Name:='GLQS';
  MyComBo.Parent:=self;
  MyComBo.Left:=100;
  MyComBo.Top:=100;
  MyComBo.Width:=40;
  for i:=0 to 10 do
    begin
      MyComBo.Items.Add(inttostr(i));
      next;
    end;
  MyComBo.ItemIndex:=0;
end;

引言: BIG-ROM您好： 您所贴代码，意在实现一个下列框。在Delphi中有直接的控件可以实现类似的功能。在standard页中有个ComboBox控件，只需在其Items属性中加入您所要选择的字符，将其ItemIndex根据自己所需设为0即可。 如您想用代码来实现也可以。可参考：

 
procedure TForm1.Button1Click(Sender: TObject);
var
  MyComBo:TComboBox;
  i:integer;
begin
  MyComBo:=TComboBox.Create(self);
  MyComBo.Name:='GLQS';
  MyComBo.Parent:=self;
  MyComBo.Left:=100;
  MyComBo.Top:=100;
  MyComBo.Width:=40;
  for i:=0 to 10 do
    begin
      MyComBo.Items.Add(inttostr(i));
      next;
    end;
  MyComBo.ItemIndex:=0;
end;

试试看吧 <>~~~静心养德~~~ < face="Verdana, Arial, Helvetica">

引言: 如何在ComboBox1本身插入程式碼構建？ 不是很明白您的意思？你不会是说在>~~~静心养德~~~ 發表人 - >< face="Verdana, Arial, Helvetica"> 寫程序——新問題會接踵而來！

引言: 您好，請問如何在元件上添加語句使它產生虛擬數值出來？

var 
  i:integer;      for i:=0 to 10 do
    begin
      MyComBo.Items.Add(inttostr(i));
      next;
    end;
您可以在一个Button的onclick中执行上面语句，您试试看
    <>~~~静心养德~~~ 

        

 
procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  for i:=0 to 10 do
    begin
      ComboBox1.Items.Add(inttostr(i));
      next;
    end;
  ComboBox1.ItemIndex:=0;
end;
//ComboBox的onChange事件，是您在选取不同的items时触发的事件，使用，你可以参考下面
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  showmessage(ComboBox1.Items[ComboBox1.ItemIndex]);//得出您当前所选的items的值
end;

引言: BIG-ROM您好：可能您还不是很清楚我说的。 执行步骤： 1、new-->application; 2、往窗体（Form1）拉一个Button和一个ComboBox；两个控件都在Standard页中。 3、双击窗体上的Button1，然后在里面输入下面代码：

 
procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  for i:=0 to 10 do
    begin
      ComboBox1.Items.Add(inttostr(i));
      next;
    end;
  ComboBox1.ItemIndex:=0;
end;
//ComboBox的onChange事件，是您在选取不同的items时触发的事件，使用，你可以参考下面
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  showmessage(ComboBox1.Items[ComboBox1.ItemIndex]);//得出您当前所选的items的值
end;

这时您看看窗体上的ComboBox1是不是已经加了items进去了，也就是0..10这几个数值了吧。 而我第一次所放上去的代码，是自动产生一个ComboBox，然后往里放0..10这几个数值。效果是一样的。 不知是不是我的表述上有很大的问题，还是您应该去看看相关的书还有去实践。 ~~~静心养德~~~

procedure TForm1.FormCreate(Sender: TObject);
var
  i:integer;
begin
  ComboBox1.Items.Clear;
  for i := 0 to 10 do
    ComboBox1.Items.Add(IntToStr(i));
  ComboBox1.ItemIndex:=0;
end;

引言: 您可以在寫在 Form1 的 FormCreate 事件中: [code] procedure TForm1.FormCreate(Sender: TObject); var ....