Hallo
Stichwort: z.B. treenode.absoluteindex
Delphi-Quellcode:
procedure TForm_Einstellungen.TreeView_EinstellungenChange(Sender: TObject;
Node: TTreeNode);
begin
if TreeView_Einstellungen.Selected<>nil then
PageControl_Einstellungen.ActivePageIndex:=TreeView_Einstellungen.Selected.AbsoluteIndex;
end;
Mfg Frank