Форум: "Начинающим";
Текущий архив: 2008.05.25;
Скачать: [xml.tar.bz2];
Вниз
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, а у этого нет, как быть?
← →
Palladin © (2008-04-24 20:12) [13]
>Восхищенный (24.04.08 19:45) [10]
это не голословно, бо мое личное мнение. а за то что забыл добавить "имхо" за это извиняюсь ) вопрос более религиозный чем технический...
← →
{RASkov} © (2008-04-24 21:22) [14]> [12] Артемка (24.04.08 20:08)
Нужно убрать рамку?
Тогда попробуй PageControl1.Style:=tsButtons; или tsFlatButtons ...это без разницы.
← →
{RASkov} © (2008-04-24 21:29) [15]> [11] Артемка (24.04.08 20:05)
> в миллионный раз выручаешь!
Везет же тебе :)
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.05.25;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.007 c
