动态创建的控件如何释放?
我这样创建了两种控件:
procedure BtnAddNewPageClick(Sender:TObject);//增加页,同时增加数据栏
begin
with TTabSheet.Create(self) do
begin
PageControl:=PageControl1;
Caption := 'TabSheet' + IntToStr(PageControl1.PageCount);
end;
PageIndex := PageControl1.PageCount - 1;
with TDBGrid.Create(self) do
begin
Parent:=PageControl1.ActivePage;
Align:=alClient;
//....数据赋值省略
end;
end;
//释放
procedure BtnDestroyClick(Sender:TObject);
var
i:integer;
begin
for i:=0 to PageControl1.PageCount-1 do
begin
PageControl1.ActivePage.Free;
//...在这里如何释放该页的TDBGrid???
end;
end;