Treeview und Pagecontrol "verlinken"

[Andreas L.]

Habs geschafft, danke für euere Hilfe.

Delphi-Quellcode:

procedure TForm3.TreeView1Click(Sender: TObject);
begin
 case TreeView1.selected.absoluteindex of
  0 : begin
       Pagecontrol1.ActivePage:=TabSheet1;
      end;
  1 : begin
       Pagecontrol1.ActivePage:=TabSheet2;
      end;
  2 : begin
       Pagecontrol1.ActivePage:=TabSheet3;
      end;
  3 : begin
       Pagecontrol1.ActivePage:=TabSheet4;
      end;
 end {case}
end;

Greetz