Pagecontrol приховати заголовок закладки

PageControl: приховати заголовок закладки

Чи не підкажете, як можна приховати заголовок закладки в PageControl?
TabVisible не підходить, так як саму ятати мені видаляти не потрібно, а потрібно, щоб кнопки, що викликає її, не було.

А може що інше підкажіть для мого завдання?
Є ідея написати простінків візард, в якому стандартно перехід до наступної і попередньої закладці здійснюється кнопками Next і Prev відповідно. PageControl цілком придався б, якщо б не оці дурні кнопки :(

TabVisible - підходить, але є глюк з приховуванням таба (в Д4 теж було). Зараз працюю в Д7, Д6 - вже не пам'ятаю але помоему в Рантайм закладки повинні зникнути.


var
PagesHeight: integer = 0;

procedure TfrmMain.chkInterfaceClick (Sender: TObject);
var
f1: boolean;
begin;
if PagesHeight = 0 then PagesHeight: = pcMain.Pages [0] .Top;
f1: = chkInterfaceShowPages.Checked;
if f1 then begin;
pcMain.Top:=0;
pcMain.Height: = panRight.Height + 3;
end
else begin;
pcMain.Top:=-PagesHeight;
pcMain.Height: = PagesHeight + panRight.Height + 3;
end;
end;

P.S. pcMain лежить на panRight, Align = None

2 Плохиш:
F1:
===
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.
===
А я ще раз повторю, що сам Sheet мені приховувати не треба, потрібно тільки його Tab приховати. Ще якісь розумні пропозиції?
Нагадую, що мова про D5

2 Sha:
Чи не зрозумів, до чого твій приклад. Що за тип у pcMain?

2 serge:
А приховування листа хіба глюк? У хелпе про це чорним по білому написано.

А на TabVisible у тебе тільки верхня погань сховається. Сам Sheet залишиться.

виставляєш TabVisible: = false, відповідний TabSheet пропадає. Але якщо виставити властивість ActivePage у PageControla в назву прихованого TabSheet "а, то він з'явиться як миленький, причому як в Рантайм, так і в дізайнтайме. І на скільки я пам'ятаю, то по барабану який дельфи, 4 (2) .. 7.

Коротше, вчіть матчастину.

Це вирізка з працюючого проекту.
Tип у chkInterface - TCheckBox.
Tип у panRight - TPanel.
Tип у pcMain - TPageControl, заміни його на свій РаgeControl.

Cуть прикладу - при натисканні на чекбоксі закладки то з'являються, то зникають. Користувач вибирає сам зручний йому інтерфейс. Там зліва ще трива є.

Пам'ять: 0.73 MB
Час: 0.041 c