procedure TForm1.ListView1MouseDown(Sender: TObject;
Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer);
var
FSelectedItem: TListItem;
begin
if Button = mbRight then
begin
FSelectedItem := ListView1.GetItemAt(X, Y);
if FSelectedItem <>
nil then
//弹出上下文菜单
end;