delphi能删除动态生成的控件吗?
解决方案 »
- 复兴科技高薪诚聘DELPHI开发工程师(深圳南山科技园)
- Delphi2005,win32环境下使用crystal report的问题
- 寻找 wwdbgrid for delphi 5
- 请问如何获得一个文件的上一级目录的名称
- form2是form1中show出来的,form1关闭时,form2不关闭,form1重新showmodal出来,form2就不能操作了,怎办?
- 请高手推荐一下比较号的建模工具及下载地址
- 偶有重回delphi修炼了,当年偶的师傅还在吗?老千,老鱼,chech,小新,老鬼,你们过的怎样??
- 请进来看看!
- 用API函数实现delphi串口问题,高分求源码
- 关于ISAPI收长数据问题
- 怎么捕获电脑上发送出去的数据包
- 这2个函数如何写成Delphi代码?谢谢
实例删除动态创建的BUtton创建
BB := TButton.Create(self);
BB.Parent := self;删除
BB.Free;
先声明一个Edit数组,可以是静态的也可以是动态的比如 AEdit: array of TEdit;
//创建
Count := 10;
SetLength(AEdit,Count+1);
for i:=1 to Count do
begin
EditName := 'Edit' + IntToStr(i);
AEdit[i] := TEdit.Create(Self);
AEdit[i].Parent := Self;
if i = 1 then
begin
AEdit[i].Top := Top;
end
else if i > 1 then
begin
AEdit[i].Top := Top + 10;
end;
AEdit[i].Left := 405;
AEdit[i].Width := 100;
AEdit[i].Height := 14;
AEdit[i].AutoSize := False;
AEdit[i].Name := EditName;
AEdit[i].OnKeyDown := EditKeyDown;
//释放
for i:=1 to Count do
begin
EditName := 'Edit' + IntToStr(i);
if assigned(TEdit(FindComponent(EditName)) then
begin
(FindComponent(EditName) as TEdit).Free;
(FindComponent(EditName) as TEdit) := nil;
end;
end;
AEdit := nil;