Динамические создание объектов в Tabbednotebook I

procedure TForm1.TabbedNotebook1Click(Sender: TObject); var myE: TEdit;begin with TabbedNotebook1 do beginif PageIndex = 1 then beginmyE := TEdit.Create(Self);myE.Left := 12;myE.Top := 12;myE.Parent:=Pages.Objects[PageIndex] as TWinControl;myE.Show;end;end;end;

Как мне поместить кнопку (во время выполнения программы) на страницу TabbedNoteBook?

procedure TForm1.Button1Click(Sender: TObject);varButton2:Tbutton;beginbutton2:=tbutton.create(self);button2.parent:=TabbedNotebook1.Pages.Object[0] as TTabPage;button2.setbounds(30,30,60,30);end;

[000687]

Содержание раздела

---

---