![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
delphi删除动态添加的控件
代码如下procedureTForm1.BitBtn1Click(Sender:TObject);varmyedit:tedit;i,j:integer;beginfor...
代码如下
procedure TForm1.BitBtn1Click(Sender: TObject);
var
myedit:tedit;
i,j:integer;
begin
for i:=0 to 4 do
begin
for j:=0 to 2 do
begin
myedit:=tedit.create(self);
with myedit do
begin
parent:=self;
left:=600+30*j;
top:=175+50*i;
width:=15;
maxlength:=1;
end;
end;
end;
end;
我用什么代码 在以后可以删除这些动态创建的 edit呢 回答好了 再加20分 谢谢各位了 展开
procedure TForm1.BitBtn1Click(Sender: TObject);
var
myedit:tedit;
i,j:integer;
begin
for i:=0 to 4 do
begin
for j:=0 to 2 do
begin
myedit:=tedit.create(self);
with myedit do
begin
parent:=self;
left:=600+30*j;
top:=175+50*i;
width:=15;
maxlength:=1;
end;
end;
end;
end;
我用什么代码 在以后可以删除这些动态创建的 edit呢 回答好了 再加20分 谢谢各位了 展开
3个回答
展开全部
这里的关键是,你的动态数组变量必须定义成单元级别的或者全局的,才好操作.如果是局部变量,好像没有什么办法.
展开全部
定义一个控件数组:
ts:array[1..15] of TEdit;
myedit:=tedit.create(self);
ts[i*3+j+1] := myedit; // 加这个
删除方法
for i:=1 to 15 do
ts[i].Free;
ts:array[1..15] of TEdit;
myedit:=tedit.create(self);
ts[i*3+j+1] := myedit; // 加这个
删除方法
for i:=1 to 15 do
ts[i].Free;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
好的
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询