Delph中如何在运行时动态创建空间如TEdit，

Question

你是指如何创建控件吧？
var
   edt:TEdit;//声明变量
begin
   edt:=TEdit.create;//创建对象
end;

Answer 1

uses你要创建的VCL控件的pas文件，然后就：
procedure Form1.OnButtonClick（Sender: TObject）；
var
  MyEdit： TEdit；
begin
  MyEdit:= TEdit.Create(Self)；//创建TEdit对象实例
  //====设置相关属性=========
  MyEdit.Left:= 10;
  MyEdit.Top:= 10;
  MyEdit.Font:= 'Arial';
  MyEdit.Font.Size:= 9;
  MyEdit.Text:= 'Hello world';
  //====指定父窗口===========
  MyEdit.Parent:= Form1;//或者直接用Self,如果不指明Parent属性的话，
                        //你的Edit不会显示出来！ 
end;

Answer 2

uses你要创建的VCL控件的pas文件，然后就：
procedure Form1.OnButtonClick（Sender: TObject）；
var
  MyEdit： TEdit；
begin
  MyEdit:= TEdit.Create(Self)；//创建TEdit对象实例
  //====设置相关属性=========
  MyEdit.Left:= 10;
  MyEdit.Top:= 10;
  MyEdit.Font:= 'Arial';
  MyEdit.Font.Size:= 9;
  MyEdit.Text:= 'Hello world';
  //====指定父窗口===========
  MyEdit.Parent:= Form1;//或者直接用Self,如果不指明Parent属性的话，
                        //你的Edit不会显示出来！ 
end; 上面的漏了一个name的属性要设置,否则你不能正常使用

Answer 3

uses你要创建的VCL控件的pas文件，然后就：
procedure Form1.OnButtonClick（Sender: TObject）；
var
  MyEdit： TEdit；
begin
  MyEdit:= TEdit.Create(Self)；//创建TEdit对象实例
  //====设置相关属性=========
  MyEdit.Left:= 10;
  MyEdit.Top:= 10;
  MyEdit.Font.Name:= 'Arial';
  MyEdit.Font.Size:= 9;
  MyEdit.Text:= 'Hello world';
  //====指定父窗口===========
  MyEdit.Parent:= Form1;//或者直接用Self,如果不指明Parent属性的话，
                        //你的Edit不会显示出来！ 

Answer 4

不要指定Name属性也可以使用，不过最好指定，这是一个好习惯，以后会用上的！！
另外刚才的代码太罗嗦了，改为：
procedure Form1.OnButtonClick（Sender: TObject）；
var
  MyEdit: TEdit；
begin
  with MyEdit do
  begin
    MyEdit:= TEdit.Create(Self)；//创建TEdit对象实例
    //====设置相关属性=========
    Left:= 10;
    Top:= 10;
    Font:= 'Arial';
    Font.Size:= 9;
    Text:= 'Hello world';
    //====指定父窗口===========
    Parent:= Form1;//或者直接用Self,如果不指明Parent属性的话，
  end;             //你的Edit不会显示出来！ 
end; 
其实最简单的办法是这样（如果你不需要引用一个具体的实例的话，两句话搞定）
procedure TForm1.Button1Click(Sender: TObject);
begin
  with TEdit.Create(Self) do
    Parent:= Self;
end;