Item in TreeView selektieren

[Opa Knack]

Hallo,

ich habe ein Menü aus einem TreeView erstellt, von welchem aus das Programm beim Anwählen eines Items das TabSheet einer PageControl anspricht.

Nun würde ich's gerne umsetzen, dass beim Programmstart ein Item des TreeViews markiert ist und das dazu gehörige TabSheet angezeigt wird. Ich kann zwar die ActivePage auf das Sheet setzen, bekomme es aber die Markierung im Tree nicht hin.

Nun zur Frage: Wie kann ich die Markierung setzen? Oder besser noch: Meine Lösung ist ja jetzt auf 2 Schritten basierend (ActivePage setzen, TreeView markieren). Geht das auch einfach durch Selektieren des Items?

Danke
Opa

[Sharky]

Hai Opa,

einfach mit
TreeView1.Items[2].Selected := True; Das gewünschte Item selektieren.

Und das Auswählen des Tabs dann im .OnChange des Treeviews:

Delphi-Quellcode:

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  PageControl1.ActivePageIndex := TreeView1.Selected.Index;
end;