Hallo,

ich habe eine Frage zum Thema TreeView.
Ich hab einen Baum erstellt der mehrere Unterbäume mit Namen enthält.
Wie kann ich nun bewirken das etwas geschieht wenn ich auf einen
der Namen klicke. Zum Beispiel: Sobald ich auf einen Namen im
Baum klicke ändert sich der Text in einem Labe.


Gruß
Sebastian

Herzlich willkommen in der Delphi-PRAXiS, Sebastian.

Du kannst auf das Ereignis OnChange() reagieren - einfach über den Object Inspector eine Methode für deine TreeView erzeugen und deinen eigenen Code eintragen:

markieren

Delphi-Quellcode:

procedure TDemoForm.TreeViewChange(Sender: TObject; Node: TTreeNode);
begin
  if Assigned(Node)
    then DemoLabel.Caption := Node.Text
    else DemoLabel.Caption := '';
end;

Freundliche Grüße

Zitat von S20000:

Wie kann ich nun bewirken das etwas geschieht wenn ich auf einen
der Namen klicke. Zum Beispiel: Sobald ich auf einen Namen im
Baum klicke ändert sich der Text in einem Labe.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.TreeViewMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  Node: TTreeNode;
  HitTest: THitTests;
begin
  HitTest := TreeView.GetHitTestInfoAt(X, Y);
  if (htOnIcon in HitTest) or (htOnLabel in HitTest) then
  begin
    Node := TreeView.GetNodeAt(X, Y);
    if Assigned(Node) then
      Label1.Caption := Node.Caption;
  end;
end;

Vielen Dank.

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

zusammenfalten · markieren

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;

Moin, Moin,

wenn ich das recht sehe, dann liesse sich das ganze etwas verkürzen:

markieren

Delphi-Quellcode:

procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Pagecontrol1.ActivePageIndex:=TreeView1.Selected.AbsoluteIndex
end;

Da geb ich dir Recht