Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как добавить новую страницу в TPageControl?

Автор: Lexicss 14.11.2007, 17:41

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

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

Код


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

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

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

Автор: lukas 14.11.2007, 18:12

Код


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

Автор: Lexicss 14.11.2007, 20:47

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

Код


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

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

Автор: Gershkovich 11.2.2008, 14:36

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

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

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

Вот так вот ?

Код


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

  myPage.Free;

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

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