Treeview-node mit eine PageControl TabSheet kuppeln?

[PeterKiers]

Stimmt noch nicht ganz aber es funktioniert.

Code:

procedure TForm1.TreeView1Click(Sender: TObject);
begin
  TreeView1.items[0].StateIndex := 0;
  PageControl1.ActivePageIndex := 0;
end;

Peter