treeview Menü

[toms]

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.

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;