Wie kann ich ein Kontextmenü in einer Baumansicht, aber nur in einigen bestimmten treenodes öffnen?

Question

Ich habe ein TPopupMenu mit einem TTreeView verbunden, aber ich möchte jetzt das Menü nur aufrufen, wenn der Benutzer in einen bestimmten Knoten klickt. Also, wie kann ich ein Kontextmenü in einer Treeview, aber nur in einigen bestimmten treenodes öffnen?

Answer 1

Verwenden Sie den Parameter Handled aus dem Ereignis OnContextPopup. Wenn Sie diesen Parameter auf True setzen, unterdrücken Sie das anzuzeigende Kontextmenü. Der folgende Code zeigt, wie die TTreeNode von der Cursorposition an das OnContextPopup-Ereignis übergeben wird und das Popup-Menü nur dann anzeigt, wenn Sie mit der rechten Maustaste auf die TTreeNode klicken, die sich von der oberen unterscheidet.

procedure TForm1.TreeView1ContextPopup(Sender: TObject; MousePos: TPoint; 
    var Handled: Boolean); 
begin 
    if TreeView1.GetNodeAt(MousePos.X, MousePos.Y) = TreeView1.TopItem then 
    Handled := True; 
end; 

Answer 2

Dies kann hilfreich sein:

procedure TForm1.TreeView1ContextPopup(Sender: TObject; MousePos: TPoint; 
    var Handled: Boolean); 
    var node : TTreeNode; 
begin 
    node := TreeView1.GetNodeAt(MousePos.X, MousePos.Y); 
    if not Assigned (node) then 
    Abort; 
end;