Treeview und Pagecontrol "verlinken"

[Andreas L.]

Hi,
ich hab ne TreeView und ne PageControl (mit mehreren TabSheets) auf meinen Form. Nun möchte ich wenn ein Item bzw. Subitem im TreeView angeklickt wird ein TabSheet anzeigen lassen. Jedes Item ein anderes TabSheet.

Das TabSheet anzeigen lassen kann ich z. B. so machen:

Delphi-Quellcode:

Pagecontrol1.activepage:=TabSheet1;

Aber wo binde ich das ein damit bei jeden Item ein andere TabSheet angezeigt wird.

Bei der ListView geht das ja so:

Delphi-Quellcode:

begin
 case ListView1.Itemindex of
  0 : begin
       Pagecontrol1.ActivePage:=TabSheet1;
      end;
  1 : begin
       Pagecontrol1.ActivePage:=TabSheet2;
      end;
 end {case}
end;

Aber ich möchte die TreeView nehmen weil da auch Subitems möglich sind.

Wie mache ich das obere Code beispiel mit einer TreeView statt ListView?

Greetz und thx

[Keldorn]

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

[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

[Keldorn]

warum setzt du nicht den pageindex? wenn du deine Tabsheets in die gleiche reihenfolge wie deine nodes bringst, geht das viel einfacher.