Question

delphi如何动态控件创建动态控件？

先创建一个PageControl1然后动态创建TabSheet，里边要放一些动态的控件如何实现？
procedure TMain.Button5Click(Sender: TObject);
var
memo:Tmemo;
begin
with TTabSheet.Create(Self) do
begin
Caption :=IntToStr(PageControl1.PageCount);
Name := 'TabSheetNew' + IntToStr(PageControl1.PageCount);
PageControl := PageControl1;
end;

Memo:=TMemo.Create(TabSheet1);
memo.Parent:=TabSheet1;
Memo.Left:= 20;
Memo.Top:= 20;
Memo.Width:= 250;
Memo.Height:= 300;
end;

我只能在事先创建好的TabSheet1创建MEMO，要怎么实现动态的TabSheet创建MEMO？
如果要在别的过程修改memo的text要怎么实现？

Answer 1

var
tab: TTabSheet;
memo: TMemo;
begin
tab := TTabSheet.Create(self);
tab.Caption := IntToStr(PageControl1.PageCount);
tab.Name := 'TabSheetNew' + IntToStr(PageControl1.PageCount);
tab.PageControl := PageControl1;

memo := TMemo.Create(tab);
memo.Parent := tab;
memo.left := 20;
Memo.Top:= 20;
Memo.Width:= 250;
Memo.Height:= 300;

end;