Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Настройки программы [D7]

Виктор007 © (2007-11-10 12:10:00)
Здравствуйте. Мастера, помогите пожалуйста. Решил для программы ввести кучу опций. Хочется чтобы окно настроек выглядело как в Total Commander'е, т.е. слева список TreeView или ListBox, а справа соответственно настройки. Но вот даже не могу понять с чего начинать реализацию, кинул на форму TreeView, а дальше как сделать оптимальнее не пойму. Думал повесить PageControl, а в обработчике OnClick прописать что-то вроде PageControl1.ActivePageIndex := ListView1.ItemIndex;

но у не удается скрыть вкладки.

Да и мне кажется что для этого есть какой-то готовый компонент в Delphi о котором я просто не знаю...

sniknik (2007-11-10 14:15:00) [1]
Kolan © (10.11.07 13:23) [5]
DVM © (10.11.07 13:27) [6]
сорри, действительно спутал, почемуто подумал про TNotebook.
может потому что его чаще рекомендуют для замены TPageControl, и организации многих страниц без вкладок. а TTabControl это наоборот много вкладок на одной странице. (т.е. нелогичен в данном ответе, а я подсознательно подставил логичный и часто рекомендуемый...)

DVM (2007-11-10 13:27:00) [2]

> sniknik © (10.11.07 12:40) [3]

и TabControl и PageControl потомки одного и того же класса TCustomTabControl и имеюют один и тот же Windows Control в основе своей, следовательно оба поддерживают стили одинаково.

Kolan (2007-11-10 13:23:00) [3]
> не рекомендую… старый, не поддерживает схем XP, если вдруг
> станут нужны…

Как не поддерживает? Поддерживает.

sniknik (2007-11-10 12:40:00) [4]
> но у не удается скрыть вкладки.
у страниц свойство tabvisible. переключать при скрытых придется самому.

> Можешь воспользоваться TabControl'ом.
не рекомендую... старый, не поддерживает схем XP, если вдруг станут нужны...

Виктор007 (2007-11-10 12:40:00) [5]
Вроде так получилось. В обработчике OnCreate формы прописал:

PageControl1.Style := tsFlatButtons;
for i:=0 to PageControl1.PageCount -1 do
PageControl1.Pages[i].TabVisible := false;

И вкладок не видно. Получилось как раз то что нужно.

Efir (2007-11-10 12:33:00) [6]

> Думал повесить PageControl, а в обработчике OnClick прописать
> что-то вроде PageControl1.ActivePageIndex := ListView1.
> ItemIndex;
>
> но у не удается скрыть вкладки.

Можешь воспользоваться TabControl'ом.

Виктор007 (2007-11-10 12:21:00) [7]
Ой, опечатался. Имел ввиду не ListView а ListBox

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »