treeview

← →
Артемка (2008-04-24 18:08) [0]

я чет не воткнул как люди используют treeview, по нажатию на нод справа появляются как бы разные панели. как мне такое же сделать?

← →
Palladin © (2008-04-24 18:09) [1]

да они просто волшебники... :)

← →
Восхищенный (2008-04-24 18:13) [2]

> Артемка (24.04.08 18:08)

Вот прям так и сделать - при выборе нода переключать видимость панелей (или фреймов, а еще лучше - закладки PageControl).

← →
Артемка (2008-04-24 18:28) [3]

c pagecontrol удобно, а вот с treeview и панелями как то не очень :(
я думал что есть способ переключать панели как это сделанно в pagecontrol"e

← →
Восхищенный (2008-04-24 18:40) [4]

> Артемка (24.04.08 18:28) [3]

Ведь сказал - при выборе нода. Это значит, что нужно написать обработчик события, а в нем - переключать вкладки. А ярлычки вкладок надо сделать невидимыми, чтобы юзер не мог переключать их по-своему.

Подсказка - чтобы знать, какую вкладку при выборе нода надо показать, удобно использовать свойство TTreeNode.Data.

← →
Артемка (2008-04-24 18:45) [5]

спасибо, не внимательно прочитал предыдущ. пост.

← →
Артемка (2008-04-24 19:11) [6]

вроде все работает, только не знаю как сделать невидимым ярлык вкадок.

← →
Palladin © (2008-04-24 19:16) [7]

решение использовать PageControl как набор страниц для переключения через treeview несколько ректально... спрятать на деле не сложно... закинуть пагеконтрол на панель и сделать ему top:=-высота_закладки...

неректально, без использования скажем JEDI где есть отличный компонент TjvPagesList, нужно просто сделать основную панель, а на нее уже закинуть переключаемые, всем сделать alClient, и организовать менеджер их видимости....

← →
Palladin © (2008-04-24 19:18) [8]

либо есть еще решение через TFrame, но я им жутко не доверяю...

← →
{RASkov} © (2008-04-24 19:24) [9]

> [6] Артемка (24.04.08 19:11)
> только не знаю как сделать невидимым ярлык вкадок.

TTabSheet.TabVisible
Вот:
procedure TForm1.FormCreate(Sender: TObject); var N: Integer; begin for N:=0 to PageControl1.PageCount-1 do begin PageControl1.Pages[N].TabVisible:=False; ListBox1.Items.Add(PageControl1.Pages[N].Caption); end; end; procedure TForm1.ListBox1Click(Sender: TObject); begin PageControl1.ActivePageIndex:=ListBox1.ItemIndex; end;
только вместо ТриВью используется ЛистБокс...

← →
Восхищенный (2008-04-24 19:45) [10]

> Palladin © (24.04.08 19:16) [7]

> решение использовать PageControl как набор страниц для переключения
> через treeview несколько ректально

Несколько голословно.

> сделать основную панель, а на нее уже закинуть переключаемые, всем
> сделать alClient, и организовать менеджер их видимости....

Что очень неудобно при создании содержимого панелей в design-time. Поэтому и впрямь ректально.

← →
Артемка (2008-04-24 20:05) [11]

Всем спасибо за ответы!
{RASkov}, в миллионный раз выручаешь! Отдельные благодарности тебе!!!

← →
Артемка (2008-04-24 20:08) [12]

уважаемые, если не трудно подскажите можно ли как изменить бордер у pagecontrol?
у остальных контролов есть свой-ва borderstyle,bevelkind, а у этого нет, как быть?

>Восхищенный (24.04.08 19:45) [10]

это не голословно, бо мое личное мнение. а за то что забыл добавить "имхо" за это извиняюсь ) вопрос более религиозный чем технический...

> [12] Артемка (24.04.08 20:08)

Нужно убрать рамку?
Тогда попробуй PageControl1.Style:=tsButtons; или tsFlatButtons ...это без разницы.

> [11] Артемка (24.04.08 20:05)
> в миллионный раз выручаешь!

Везет же тебе :)

treeview Найти похожие ветки