如何在Form动态新建一控件?

Question

如何实现,按一下按钮便在窗体的指定位置新建一个TEdit控件?

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  ed:TEDit;
begin
  ed:=tedit.Create(self);
  with ed do
  begin
    parent:=self;
    left:=100;
    top:=100;
    height:=25;
    width:=100;
  end;end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
   myedit : TEdit;
begin
   myedit := TEdit.Create(self);
   myedit.Parent := form1;
   myedit.Text := '1234';end;

Answer 3

DelphiBird(爱你等于爱自己) 就行了，结贴吧：）

Answer 4

按DelphiBird的作法就可以了

Answer 5

不过最好是Create的时候h_edit := TEdit.create(nil);
这样比较好些地

Answer 6

采用动态创建组件.
//---------------Unit1.pas--------------------
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  EditDy:TEdit;
  i:Integer;
begin
  for i:=0 to 10 do
    begin
      EditDy:=TEdit.Create(Self);
      EditDy.Name:='EditDy'+IntToStr(i);
      EditDy.Parent:=Form1;
      EditDy.Left:=200;
      EditDy.Width:=100;
      EditDy.Height:=20;
      EditDy.Top:=10+i*30;
    end;
end;end.
//-------------------Project------------
program Project1;uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};{$R *.res}begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
//---------------