需要用到ShellListView的OnMouseDown事件，PopMenu中的OnPopup()事件。其中还有如何获得PopMenu出现的坐标 代码如下： procedure TFormSystemTree.lvMainMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);var