Right Click a treeview

[RobYost]

How do you know which node has been selected on a right click?

This is the code I was using in VCL

 

procedure TfrmMain.treeBuildingMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);
var
  aNode: TUniTreeNode;
  P:     TPoint;
begin

  if (Button = mbRight) then
  begin
    aNode := treeBuilding.GetNodeAt(X, Y);
    if (aNode <> nil) then
    begin
      treeBuilding.Selected := aNode;
      P.X := X;
      P.Y := Y;
      P := treeBuilding.ClientToScreen(P);
      popNewEntity.Popup(P.X, P.Y);
    end;
  end;
end;

[Sherzod]

Hi,

 

Select also works when you press the right click.

 

If you want to use the context menu, you can use this event of UniTreeView -> OnCellContextClick.

 

For example:

procedure TMainForm.UniTreeView1CellContextClick(ANode: TUniTreeNode; X,
  Y: Integer);
begin
  UniPopupMenu1.Popup(X, Y);
end;

Best regards.

[artem_niko]

On 2/11/2017 at 11:35 AM, Sherzod said:

Hi,

 

Select also works when you press the right click.

 

If you want to use the context menu, you can use this event of UniTreeView -> OnCellContextClick.

 

For example:

procedure TMainForm.UniTreeView1CellContextClick(ANode: TUniTreeNode; X,
  Y: Integer);
begin
  UniPopupMenu1.Popup(X, Y);
end;

Best regards.

Good day!

I have a question.

How to write code to show UniPopupMenu right next to the mouse cursor, on the selected item in UniTreeView?

Now my context menu appears somewhere away from where I right-clicked:

[Sherzod]

1 hour ago, Артем said:

How to write code to show UniPopupMenu right next to the mouse cursor, on the selected item in UniTreeView?

Hello,

procedure TMainForm.UniTreeView1CellContextClick(ANode: TUniTreeNode; X,
  Y: Integer);
begin
  UniPopupMenu1.Popup(X, Y, ANode);
end;

 

[artem_niko]

2 hours ago, Sherzod said:

Hello,

procedure TMainForm.UniTreeView1CellContextClick(ANode: TUniTreeNode; X,
  Y: Integer);
begin
  UniPopupMenu1.Popup(X, Y, ANode);
end;

 

Thanks!
Almost works as it should.
Only, the context menu appears, as it were, ABOVE the mouse cursor, but it is necessary that it be BELOW it.

How to fix it?

Well, how it is done in the usual Word'e, where we right-click on the sheet.

[Sherzod]

44 minutes ago, Артем said:

Only, the context menu appears, as it were, ABOVE the mouse cursor, but it is necessary that it be BELOW it.

Well, if I understand you correctly, you can increase the values:

UniPopupMenu1.Popup(X+xx, Y+yy, ANode);