Как отобразить PopUp с клавиатуры

[Sergio_O]

Все знают, что на клаве есть кнопка, вызывающая менюшку. Так вот как сделать, чтобы попап выводился в нужном месте - на нужном элементе. К примеру на нужном узле TreeView?
Временное решение, но меню выводится в углу самого TreeView:

procedure TForm1.TreeView1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = 93 then
    begin
      PopupMenu1.Popup(Form1.Left + TreeView1.Left, Form1.Top + TreeView1.Top);
    end;
end;

[_SERGEYX_]

Но узел в TreeView ты же выбираешь мышью. Вот и передай в глобальные переменные
координаты узла при MouseDown

var X0, Y0: integer;

procedure TfrmMain.TreeViewMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
    X0:=X;
    Y0:=Y;
end;

Ну, и далее при нажатии клавиши

procedure TfrmMain.TreeViewKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  var tp: TPoint;
begin
  if Key = 93 then
 begin
  tp := TreeView.ClientToScreen(Point(X0, Y0));
  (PopupMenu1 as TPopupMenu).Popup(tp.X, tp.Y);
 end;
end;

[mihali4]

uses CommCtrl;
...
var
  R: TRect;
begin
  HTreeItem(Pointer(@R)^) := TreeView1.Items[2].ItemId;//тут задаем ноду дерева, для которой будем выводить попап-меню
  TreeView1.Perform(TVM_GETITEMRECT, 1, Longint(@R));
  PopupMenu1.Popup(Left+TreeView1.Left+R.Left, Top+TreeView1.Top+R.Top);
end;

Никаких координат мыши не нужно.
Можете еще эту ноду сделать Selected.

[Sergio_O]

Сообщение от _SERGEYX_

Но узел в TreeView ты же выбираешь мышью.

Далеко не факт что мышью.

Сообщение от mihali4

uses CommCtrl;
...
var
  R: TRect;
begin
  HTreeItem(Pointer(@R)^) := TreeView1.Items[2].ItemId;//тут задаем ноду дерева, для которой будем выводить попап-меню
  TreeView1.Perform(TVM_GETITEMRECT, 1, Longint(@R));
  PopupMenu1.Popup(Left+TreeView1.Left+R.Left, Top+TreeView1.Top+R.Top);
end;

Никаких координат мыши не нужно.
Можете еще эту ноду сделать Selected.

Вот это уже похоже на правду! Спасибо, попробую.