如何判断TListview中是否有item被选中？

Question

item被选中popupmenu弹出，否则不弹出，该如何写。谢谢！！！

Answer 1

procedure TForm1.ListView1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
  Handled := not Assigned(TListView(Sender).GetItemAt(MousePos.X, MousePos.Y));
end;

Answer 2

ListBox.OnClick
begin
  if ListBox.ItemIndex = -1 then
  begin 
    Application.Message('没有选中啦:)','警告',MB_OK);
    Exit;
  end;
  Popup := ....;
end;

Answer 3

if ListView1.Selected <> nil then 
   PopupMenu.PopUp(ListView1.Selected.Position.x,ListView1.Selected.Position.y);

Answer 4

zswang(伴水)(编程乃艺术)  说得对