"Древовидные" настройки приложения, как?

[Человек_Борща]

Доброго времени суток!

Хотелось бы узнать:
Как реализованы такие настройки:


Я знаю что там PageControl и TreeView.
знаю что пр нажатии на кнопку, можно создавать страницу TabSheet и элемент tree и связвать их(tag от TabSheet и data у элемента Tree). Как это реализовано "статически"? у элементов Tree ведь нету OnClick...

[Пепел Феникса]

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

[p51x]

Зато у тривьева есть онченж

[GunSmoker]

http://forum.sources.ru/index.php?sh...3&view=showall

[Человек_Борща]

Окей, прочитал тему. Понял что создание элементов и вкладок при создании формы - это мне не подходит.

По этому добавил руками и вкладки и элементы Tree.
Далее:

procedure THLRSettingsForm.CatListChange(Sender: TObject; Node: TTreeNode);
begin
  case Node.Index of
  0: PageControl.ActivePage:=GeneralSheet;
  1: PageControl.ActivePage:=TraySheet;
  2: PageControl.ActivePage:=SkinsSheet;
  3: PageControl.ActivePage:=OtherSheet;
  end;
end;

procedure THLRSettingsForm.PageControlChange(Sender: TObject);
begin
  CatPanel.Caption:=PageControl.Pages[PageControl.ActivePageIndex].Caption;
end;

procedure THLRSettingsForm.PageControlChanging(Sender: TObject;
  var AllowChange: Boolean);
begin
CatPanel.Caption:=PageControl.Pages[PageControl.ActivePageIndex].Caption;
end;

но ни одно событие PageControl не срабатывает....

О OnChange Thee пробовал писать подобный код:

PageControl1.ActivePageIndex := Node.Index;

Результат тот же...