Текущий архив: 2002.12.02;
Скачать: CL | DM;
Вниз
Для Виктории... Найти похожие ветки
← →
Skier © (2002-11-11 16:44) [0]Вика, написал как можно проще :
1) Положи на форму дерево и создай 5 узлов
2) Положи на форму компонент TPageControl и создай
5 закладок
3) В обработчике TTreeView.OnChange напиши
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
if Node <> nil then begin
case Node.AbsoluteIndex of
0 : PageControl1.ActivePage := TabSheet1;
1 : PageControl1.ActivePage := TabSheet2;
2 : PageControl1.ActivePage := TabSheet3;
3 : PageControl1.ActivePage := TabSheet4;
4 : PageControl1.ActivePage := TabSheet5;
end; //case
end; //if
end;
Если будут вопросы - не стесняйся ! :))
P.S. Прошу прощения у модератора...
← →
Андрей Прокофьев © (2002-11-11 16:50) [1]Вика, написал как можно проще :
1) Положи на форму дерево и создай 5 узлов
2) Положи на форму компонент TPageControl и создай
5 закладок
3) В обработчике TTreeView.OnChange напиши
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
Self.PageControl1.ActivePageIndex := Node.AbsoluteIndex;
end;
← →
Skier © (2002-11-11 16:51) [2]>Андрей Прокофьев
Это код гораздо сложнее ! :)))
Страницы: 1 вся ветка
Текущий архив: 2002.12.02;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.017 c
