Buscar por:

Menu Popup em cada item de um TreeView

Código

{

Adiacione os componentes TreeView e PopupMenu, crie um MenuItem, que no meu caso

coloquei o nome de Item11, ligue o PopupMenu na property do TreeView,

no evento OnContextPopup do TreeView, coloque o código abaixo.

}

procedure TForm1.TreeView1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);

var

  treeNode : TTreeNode;

  treeView : TTreeView;

begin

  treeView := TTreeView(Sender) ;

  treeNode := treeView.GetNodeAt(MousePos.X, MousePos.Y) ;

  if Assigned(treeNode) then

  begin

    treeView.Selected := treeNode;

    // Item11 é o item do MenuPopup

    Item11.Caption := Format('Item do TreeView: %s', [treeNode.Text]) ;

  end else

    Handled := True;

end;