Moin, Moin,
wenn ich das recht sehe, dann liesse sich das ganze etwas verkürzen:
Delphi-Quellcode:
procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Pagecontrol1.ActivePageIndex:=TreeView1.Selected.AbsoluteIndex
end;
