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;