怎样用右键选择选项

Question

一个树或者是列表
假设选择项是第一项，当用左键点第几项时，光条就移动并停到第几项，并且这项的seleced属性也是true,即选择了该项，
但是用右键点不行，抬起右键后，光标依然回到第一项，而且selected还是在第一项，
问，当光标在某项时，怎样用右键点一个别的项后，弹出一个菜单，比如是”删除“，然后就删除该被点击的项

Answer 1

procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  tn:TTreeNode;
begin
  if Button = mbRight then
  begin
    tn := TTreeView(Sender).GetNodeAt(x,y);
    if tn <> nil then
    begin
      tn.Selected := true;
    end;
  end;
end;