下面的代码在RzTreeView控件中为什么不行？根本没反应，为什么？

lcmlhs_2005 2019-09-12 04:43:14

procedure TForm15.TreeView1ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
var
TVNode : TTreeNode;
TV : TTreeView;
begin
TV := TTreeView(Sender);
TVNode := TV.GetNodeAt(MousePos.X, MousePos.Y) ;
if Assigned(TVNode) then
begin
TV.Selected := TVNode;
N1.Caption := Format('项目: %s',[TVNode.Text]) ;
end
else
begin
//不弹出菜单
Handled := true;
end;
end;
上面的代码在RzTreeView控件中为什么不行？根本没反应，为什么？

...全文

229 1 打赏收藏转发到动态举报

写回复

用AI写文章

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

天行归来 2019-09-12

打赏
举报

在 OnNodeContextPopup 是可以。



procedure TForm1.RzTreeView1NodeContextMenu(aSender: TObject; aNode: TTreeNode;
  var aPos: TPoint; var aMenu: TPopupMenu);
var
  TVNode : TTreeNode;
  TV : TTreeView;
begin
  TV := TTreeView(aSender);
  TVNode := TV.GetNodeAt(aPos.X, aPos.Y) ;
  if Assigned(TVNode) then
  begin
    TV.Selected := TVNode;
    N1.Caption := Format('项目: %s',[TVNode.Text]) ;
    aMenu := PopupMenu1;
  end
  else
  begin
    //不弹出菜单
    aMenu := nil;
  end;
end;