Текущий архив: 2005.10.02;
Скачать: CL | DM;

Вниз

Создать кнопку TabbedNotebook   Найти похожие ветки 

← →
Дмитрий_05   (2005-09-06 22:36) [0]

Как создать кнопку в 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

---

← →
Дмитрий_05   (2005-09-07 02:27) [1]

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

---

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

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

---

← →
Zeqfreed ©   (2005-09-07 13:51) [3]

Дмитрий_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 - нндекс необходимой закладки

---

Страницы: 1 вся ветка

Текущий архив: 2005.10.02;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.04 c