| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Создать кнопку TabbedNotebook [D7, WinXP]

Дмитрий_05 ©   (2005-09-06 22:36:00) 

Как создать кнопку в TabbedNotebook? Нашел в интернете пример:

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

Так вот у меня почему-то на слове Objectвыдается ошибка: [Error] Unit1.pas(32): Identifier expected but 'OBJECT' found

---

Zeqfreed   (2005-09-07 13:51:00) [1]

Дмитрий_05   (07.09.05 13:36) [2]
procedure TForm1.Button1Click(Sender: TObject);
begin
with TButton.Create(Self) do begin
 Parent := TabbedNotebook1.Pages.Objects[n] as TWinControl;
 SetBounds(30, 30, 60, 30);
end;
end;

n - нндекс необходимой закладки

---

Дмитрий_05   (2005-09-07 13:36:00) [2]

ну помогите пожалуйста!

---

Дмитрий_05   (2005-09-07 02:27:00) [3]

почему у меня ошибка эта выпадает?

---

Наверх