どのように私はツリービューのコンテキストメニューをポップアップすることができますが、いくつかの特定のtreenodesだけで？

Question

私はTopreeViewに関連付けられたTPopupMenuを持っていますが、ユーザーが特定のノードをクリックしたときにのみメニューを呼び出す（ポップアップしたい）ようになりました。だから、どのように私はツリービューでコンテキストメニューをポップアップすることができますが、いくつかの特定のtreenodesだけで？

Answer 1

OnContextPopupイベントのHandledパラメータを使用します。このパラメータをTrueに設定すると、コンテキストメニューが表示されなくなります。次のコードは、TTreeNodeをOnContextPopupイベントに渡されたカーソル位置から取得する方法を示しています。先頭から異なるTTreeNodeを右クリックすると、ポップアップメニューが表示されます。

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

これが役に立つかもしれません：

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;