请问:怎样在指定的坐标创建一个指定名称的文本框和下拉框控件?

解决方案 »

  1.   

    var
      Edit:TEDit;
      Combobox:TComboBox;
    begin
      Edit:=TEDit1.Create;
      Edit1.Parent:=Form1;
      Edit1.Width:=50;
      Edit1.Heigth:=20;
      Edit1.Left:=30;
      Edit1.Top:=30;
      Edit1.Visible:=True;
      Combobox:=TCombobox.Create;
      Combobox.Parent:=Form1;
      combobox.width:=50;
      combobox.height:=20;
      Combobox.Left:=100;
      combobox.top:=30;
      Combobox.Visible:=True;
    end;
      

  2.   

    刚才是随手写的,没有验证,正确的如下:
    var
      Edit1:TEDit;
      Combobox:TComboBox;
    begin
      Edit1:=TEDit.Create(Self);
      Edit1.Parent:=Form1;
      Edit1.Width:=50;
      Edit1.Height:=20;
      Edit1.Left:=30;
      Edit1.Top:=30;
      Edit1.Visible:=True;
      Combobox:=TCombobox.Create(Self);
      Combobox.Parent:=Form1;
      combobox.width:=50;
      combobox.height:=20;
      Combobox.Left:=100;
      combobox.top:=30;
      Combobox.Visible:=True;
    end;
      

  3.   

    来晚了,如wooden954(wooden)所说的,应该没问题。