Идёт загрузка страницы...

htp://aptem.net.ru





Delphi 1

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

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


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

[000687]