动态删除控件
运行程序后如何动态删除form上的一个控件？？？
给个例子吧，急等
[解决办法]
if assigned(控件名) then
FreeAndNil(控件名);
[解决办法]
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr(Self.ControlCount)); // 显示删除前的控件个数
// RemoveControl(Edit1);
Edit1.Free;
ShowMessage(IntToStr(ControlCount)); // 显示删除后的控件个数
end;
[解决办法]
procedure TForm1.Button1Click(Sender: TObject);
begin
控件名称.Free;
end;
[解决办法]
RemoveControl
