Текущий архив: 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.014 c