如何动态的删除控件

[yangw79]

我动态的创建了控件--比如我创建了三个EDIT，分别是EDIT1，EDIT2，EDIT3，
请问我如何动态的删除--比如一个BUTTON一按就删除了（不是看不见，一定是删除）

谢谢

[yangw79]

不好意思我没说清楚，我的意思是动态的增加了控键，但数量是运行的时候才确定的--开始并不知道
我能知道TEDIT的名字是 EDIT1，EDIT2，EIDT3、、、、这样增加的
请问这样的程序段该怎么写

[huojiehai]

var
aa: tedit;
begin
aa := tedit.create(self);
aa.parent := self;
aa.text := 'aaaa';
end;
或
with tedit.create(self) do
begin
parent := self;
text := 'aaaa';
end;

[noil0125]

edit1.Free;
edit2.Free;
edit3.Free;

[Hedonism]

同意UP .

[EastBuBai]

如：label.free

[xxl8101]

同意UP .

[匿名用户12345]

label1.free;
label1:=null;

[hthunter]

FreeAndNil(Edit1);

[龙里恶龙]

赞成 hthunter(核桃)

[47522341]

haha 大家都对；

[zzh54zzh]

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
FreeButton: TButton;
begin
for i := 0 to Application.ComponentCount - 1 do
begin
FreeButton := TButton(FindComponent('button2'));
if FreeButton <> nil then
FreeButton.Free;
end;
end;

[reallike]

你把它当成控件当然不知道如何删除。

如果你把它当作类你就知道如何删除了。

大家给出了好的方法。

只不过你的思路有问题。

请认真学习VCL会理解的。