怎么在notebook里边指定一页上动态创建一下button？

Question

也就是说，如何指定button的parent?

Answer 1

看我的一寫個例：
procedure TForm1.FormCreate(Sender: TObject);
var buttonx:tbutton;
begin
  buttonx:=Tbutton.Create(nil);
  buttonx.Parent:=form1.Notebook1.Controls[1].Parent;//這裡指定button的parent
  buttonx.Left:=50;
  buttonx.Top:=100;
  buttonx.OnClick:=ButtClick;
end;procedure TForm1.ButtClick(Sender: TObject);
begin
  showmessage('dsfds');
end;

Answer 2

你把代码可以不写到FormCreate里
  把这些写到notebook的change事件里
    自己试一试吧

Answer 3

为什么不能在FormCreate里创建啊？
必须先创建好，因为要往创建的页上面，插入数据

Answer 4

不知道有没有搞清楚
放在notebook上就是让它可以前后翻页
sousouwjh的方法，创建的时候可以显示出来
一翻页，就看不到了