这个是摘自网上的,
var
a: Tedit;
begin
a := TEdit.create(self);
a.parent := form1;
a.left := 0;
a.top := 0;
a.Text := 'test';
a.Visible := true;
下面是我
var
a: Tedit;
begin
a := TEdit.create(self);
a.parent := form1;
a.left := 0;
a.top := 0;
a.Text := 'test';
我的没有这个 a.Visible := true; 不知道结果怎么样,一会儿实验下!