ShellListView切换PopMenu的具体操作方法

需要用到ShellListView的OnMouseDown事件，PopMenu中的OnPopup()事件。其中还有如何获得PopMenu出现的坐标

代码如下：

procedure TFormSystemTree.lvMainMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var
  p:Tpoint;
begin
if button=mbRight then
begin
  GetCursorPos(P);
  if lvMain.InnerListView.ItemIndex = -1 then
  begin

lvMain.PopupMenu := PopupMenu2 ;
PopupMenu2.Popup(p.x,p.y);

  end
  else
  begin

lvMain.PopupMenu := PopupMenu3;
PopupMenu3.Popup(p.x,p.y);

  end;
end;
end;

OnPopup()事件代码如下：

procedure TFormSystemTree.PopupMenu2Popup(Sender: TObject);
begin
lvMain.PopupMenu := nil ;
end;

procedure TFormSystemTree.PopupMenu3Popup(Sender: TObject);
begin
lvMain.PopupMenu :=nil ;
end;