怎样动态的生成一个控件？

Question

怎样动态的生成一个控件？
具体是这样，一个安钮，一个TabNotebook(好象是这个名字，就是在win32标签底下，可以做“选项”窗体的那个，一页单独是一个容器），一个memo，运行后，一点按钮，就再增加一个TabNotebook和一个memo，不知大家听懂没？

Answer 1

如何动态创建：
http://expert.csdn.net/Expert/topic/1278/1278727.xml?temp=.1048548
http://expert.csdn.net/Expert/topic/1335/1335445.xml?temp=.2800867如何写动态创建的事件：
http://expert.csdn.net/Expert/FAQ/FAQ_Index.asp?id=5163
http://expert.csdn.net/Expert/FAQ/FAQ_Index.asp?id=1465道理都是一样的~

Answer 2

刚刚做完,行不?是这个意思不?
procedure TForm1.Button1Click(Sender: TObject);
var
  PageControl1: TPageControl;
  memo1:Tmemo;
begin
  PageControl1 := TPageControl.Create(Self);
  PageControl1.Parent := Self;
  with TTabSheet.Create(PageControl1) do
  begin
  PageControl := PageControl1;
  name:='TabSheet1';
  Caption :='¸ø·Ö!';
  end;
  memo1:=tmemo.Create(self);
  memo1.Parent:=PageControl1;
  memo1.Align:=alclient;
end;

Answer 3

上面那个码弄错了.你试一试吧,不行的话,再联系.
procedure TForm1.Button1Click(Sender: TObject);
var
  PageControl1: TPageControl;
  memo1:Tmemo;
begin
  PageControl1 := TPageControl.Create(Self);
  PageControl1.Parent := Self;
  with TTabSheet.Create(PageControl1) do
  begin
  PageControl := PageControl1;
  name:='TabSheet1';
  Caption :='给分!';
  end;
  memo1:=tmemo.Create(self);
  memo1.Parent:=PageControl1;
  memo1.Align:=alclient;
end;

Answer 4

不是这个TPageControl,是win3.1下的TTabBedNoteBook,不好意思！！
请问该怎么办？

Answer 5

反正wincontrol和上面的pagecontrol例子
一样

Answer 6

PageControl1 := TPageControl.Create(Self);
不明白參數的意思...