Question

DELPHI 动态生成控件

桌面上放一个BUTTON，一旦CLICK
就生成一个FORM2，一个EDIT2在FORM2上；

procedure TForm1.Button1Click(Sender: TObject);
var form2:tform;
edit2:tedit;
begin
form2:=tform.Create(form1);
form2.showmodal;
edit2:=tedit.Create(form2);
edit2.Parent:=form2;

edit2.Top:=10;
edit2.left:=10;
edit2.height:=50;
edit2.width:=100;
end;

FORM2上没有EDIT2？？？？？？/

Answer 1

先创建edit，再让form2 showmodal。
form2:=tform.Create(form1);
edit2:=tedit.Create(form2);
edit2.Parent:=form2;
form2.showmodal;
edit2.Top:=10;
edit2.left:=10;
edit2.height:=50;
edit2.width:=100;