Принципиальная разница между TNoteBook и TPageControl

[Troublemaker]

Есть ли она?
Я прочел в Д-хелпе, что ноутбуки оставлены для обратной совместимости. По логике, это обозначает, что лучше пользоваться PageControl. Так ли это? Почему? А в чем между ними разница в функционале?

Попутно: это я не вижу, или нет штатной возможности спрятать ярлычки страниц, чтобы пользователь мог попасть на предыдущую/следующую только с моего согласия, например - кнопкой? Вроде на глаза попадалось нечто со словом "wizard", но сейчас найти не могу.

[alexs]

wizard

это ты наверное в RxLib видел - я такое делал
а чтобы скрыть закладки - TabVisible свойство у соответсвуюшей закладки

[Alexx2000]

это я не вижу, или нет штатной возможности спрятать ярлычки страниц, чтобы пользователь мог попасть на предыдущую/следующую только с моего согласия, например - кнопкой?

Как раз у TNoteBook такая возможность есть, а именно свойство ShowTabs.
А вот у TPageControl я такого не нашел.

[Павел Ишенин]

TNodeBook - ведет свои корни от windows 3.1 Это устаревший компонент, который не знаю зачем включен в LCL. Имеет сходные свойства что и TPageControl. Отличаются лишь некоторые моменты: доступ к страницам, TabVisible vs ShowTabs, названия некоторых событий.

Лучше пользоваться TPageControl.

[Troublemaker]

Гм... коллеги, речь не о сокрытии страниц, а о том, чтобы только убрать ярлычки. Из TFM неясно, TabVisible прячет всю страницу или только ее ярлычок?

Вот что там написано: "Use TabVisible to temporarily remove a tab sheet from a page control. When TabVisible is false, the tab does not appear in the page control and its TabIndex property is -1. Setting TabVisible to true allows the user to see the tab of the tab sheet again."

[Attid]

Troublemaker
алекс тебе ответил, все остальное от лукавого.

Лучше пользоваться TPageControl.

для меня без ShowTabs он вообще лучшеб и не существовал, я в трекер писал по этому поводу мне сказали что оппа у дельфи нет такого и мы не будем делать, вот такая совместимость только огорчает.

[Troublemaker]

для меня без ShowTabs он вообще лучшеб и не существовал

Хреново. Значит будем пользоваться ноутбуком. Или есть еще какие-то средства для создания "визардов", когда в конкретный момент времени видна только одна страница из всего набора?

Попутно.
1. Не увидел способа задать ширину табов (ярлычков). В том же Clarion можно их сделать либо оптимальной ширины, как это есть в LCL, так и автоматически растягивать на всю ширину контрола. Второй вариант меня тоже бы устроил - ярлычок пошел бы как заголовок страницы. Что можно сделать?

2. Захотелось мне, чтобы один и тот же TCalcControl был виден на всех листах. Однако я не могу сделать его родителем собственно notebook или pagecontrol, только конкретную страницу. Вариант с размещением его на самой форме на "территории" страничного контрола почему-то не катит: поле для ввода числа видно "сквозь" страницу, а кнопка для вызова калькулятора не видна, см. скриншоты.
Если же разместить кальк именно как потомка страницы, то он только на ней и будет виден.
Неужели единственная возможность сделать кальк видимым только на странице, это динамически менять его родителя?

[Brainenjii]

Есть там такое... Только для каждой отдельной TTabSheet оно отдельное... И страшно глючит в GTK2... Я просто обрабатываю переход по TabSheet'ам, и если нельзя дальше переходить - возвращаю ^_^

[alexs]

Я, кстати, планирую вобще в мастерах отказаться от TPageControl-ов, хотя раньше их активно использовал. Для этой цели на мой взгляд лучше подходят фреймы (тем более сейчас их Павел доделывает) или TPanel.

[Troublemaker]

Для этой цели на мой взгляд лучше подходят ... TPanel

Будем собирать двигатель через выхлопную трубу, как тот гинеколог. Чувствую, я тоже буду использовать панели. Но для того, чтобы спрятать табы...

[alexs]

Будем собирать двигатель через выхлопную трубу, как тот гинеколог

Ну не скажи - это только кажется что с табом проблем меньше - а когда визард большой и навороченный - вся эта куча кода и компонентов начинает напрягать. Проще разбить на несколько частей - а потом парой строк кода собрать в одну форму. Я к этому пришёл через модули.
Бух. комплекс модульный - настроек много, причём зависят от кол-ва модулей. Вот и созрело такое решение - сами настройки на фремах в каждом модуле, а уж потом из модулей в основной программе вытягиваю эти фрмы и собираю их в форму настроек.
Для мастеров этотоже очень хорошо подходит технолгия.

[Troublemaker]

Решил выпендриться и, закрыв табы панелью, добавил горизонтальный TUpDown. Тупо обрабатываю клик:

Код: Выделить всё

var pages:TPageControl;

procedure TMDSForm.UpDown1Click(Sender: TObject; Button: TUDBtnType);
var a:byte;
begin
  a:=Pages.ActivePageIndex;
  case Button of
     btNext:   if a=pages.PageCount-1 then a:=0 else inc(a);
     btPrev:   if a=0 then a:=pages.PageCount-1 else dec(a);
  end;
  Pages.ActivePageIndex:=a;
end;

Странички переключаются, ярлыков не видно. КалькЕдит поместил на панель. Лепота!

[Brainenjii]

Код: Выделить всё

Var
  i: Integer;
Begin
  For i := 0 To PageControl1.PageCount - 1 Do
    If i div 2 = 0 Then
      PageControl1.Pages[i].TabVisible := FALSE;
End;

Это пробовали? У меня вроде работает... И даже глюков пока не вижу прежних (времён 0.9.22)

[alexs]

По моим наблюдениям PageControl страшно глючит если у него много страничек и на этих страничках лежат другие PageControl-ы со своими анборами страниц

[Troublemaker]

TabVisible

Я об этом спрашивал в начале треда: что же делает (точнее - что должен штатно делать) этот tabvisible - убирает ТОЛЬКО ярлычок, делая страницу недоступной для выбора пользователем, или временно удаляет всю страницу из набора, делая ее вообще недоступной ДЛЯ ПОКАЗА?
Спасибо за пример, теперь разобрался.
В общем, можно внаглую создавать потомка от TPageControl, которому добавлять проперти ShowTabs и функции Set/GetShow, которые будут пробегать по всем имеющимся страницам и поднимать/опускать ярлычки.

PageControl страшно глючит если у него много страничек и на этих страничках лежат другие PageControl-ы

А кто не глючит? Ноутбук с подчиненными ноутбуками?