VPF::Как добавить новую страницу в TPageControl?

Дата 14.11.2007, 17:41 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 197
Регистрация: 16.8.2006
Где: Беларусь, Минск

Репутация: нет
Всего: 1

Как мне в процессе реализации(run-time) создавать новые страницы(TabSheet) в TPageControl?

По идее, как ожидал я, это должно было делаться вот так:

Код


var myPage: TTabSheet;
  ...
  myPage := TTabSheet.Create(PageControl1);
  myPage.Parent := PageControl1;

Но облом. Код никаких ошибок не выдаёт, и новая страница не создаётся.

Как правильно надо делать?

--------------------

Бери от жизни всё.

Дата 14.11.2007, 18:12 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 771
Регистрация: 23.2.2007

Репутация: 3
Всего: 15

Код


TS:=TTabSheet.Create(ListForm);
TS.PageControl:=ListForm;

Это сообщение отредактировал(а) lukas - 14.11.2007, 18:12

--------------------

http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.

Дата 14.11.2007, 20:47 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 197
Регистрация: 16.8.2006
Где: Беларусь, Минск

Репутация: нет
Всего: 1

Цитата(lukas @ 14.11.2007, 18:12)

Код


TS:=TTabSheet.Create(ListForm);
TS.PageControl:=ListForm;

Спасиб, то что надо.

--------------------

Бери от жизни всё.

Дата 11.2.2008, 14:36 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 243
Регистрация: 8.2.2006

Репутация: 0
Всего: 2

lukas,  еще 2 вопроса в тему

1. Как добавить  какой-нить контрол на зокладку ?
Скажем TMemo

2.  как удалить зокладку ?

Вот так вот ?

Код


var myPage: TTabSheet;
  ...
  myPage :=  ....

  myPage.Free;

А что будет с контролами котрые были на зокладке ?
Тоже удалятся ? В смысле у них у всех вызовеццо .Free ?

Заранее спасибо.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »