5,388
社区成员
发帖
与我相关
我的任务
分享简单问题，如何动态创建组件
procedure TForm1.Button1Click(Sender: TObject);
var
edit1:TEdit ;
begin
edit1.Create(self);
edit1.Left :=200;
edit1.Top :=200;
edit1.Visible :=true;
end;
在edit1.Create(self)这句出错，说部件名称Button1已存在。
应该如何写。
var
edit1:TEdit ;
begin
edit1.Create(self);
edit1.Left :=200;
edit1.Top :=200;
edit1.Visible :=true;
end;
在edit1.Create(self)这句出错，说部件名称Button1已存在。
应该如何写。
...全文
请发表友善的回复…
发表回复
CeleronII 2002-01-31
- 打赏
- 举报
来迟了
zhuoyuesky 2002-01-31
- 打赏
- 举报
楼上两位说的都对
torble 2002-01-31
- 打赏
- 举报
procedure TForm1.Button1Click(Sender: TObject);
var
edit1:TEdit ;
begin
edit1 := TEdit.Create(self);
edit1.Parent := self;
edit1.Left :=200;
edit1.Top :=200;
edit1.Visible :=true;
end;
var
edit1:TEdit ;
begin
edit1 := TEdit.Create(self);
edit1.Parent := self;
edit1.Left :=200;
edit1.Top :=200;
edit1.Visible :=true;
end;
票票飞扬 2002-01-31
- 打赏
- 举报
procedure TForm1.Button1Click(Sender: TObject);
var
edit1:TEdit ;
begin
edit1 := TEdit.Create;
edit1.Parent := Form1;
edit1.Left :=200;
edit1.Top :=200;
edit1.Width := 100;
edit1.Height := 20;
edit1.Visible :=true;
end;
var
edit1:TEdit ;
begin
edit1 := TEdit.Create;
edit1.Parent := Form1;
edit1.Left :=200;
edit1.Top :=200;
edit1.Width := 100;
edit1.Height := 20;
edit1.Visible :=true;
end;
