treeview Menü

[S20000]

Wollte nochmal rückmelden wie ich mein Menü
jetzt erstellt habe:

Delphi-Quellcode:

//Hauptmenü über TreeView
procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin

if treeview1.Selected.AbsoluteIndex=0 then
Pagecontrol1.ActivePage:=tabsheet1;
if treeview1.Selected.AbsoluteIndex=1 then
Pagecontrol1.ActivePage:=tabsheet2;
if treeview1.Selected.AbsoluteIndex=2 then
Pagecontrol1.ActivePage:=tabsheet3;

end;