Ошибки при переходе с ListBox на ListView

[Shouldercannon]

Ещё одна проблема с ListView. К ListView прицеплен PopUp. При нажатии в пустом месте ListView вызывается PopUp и нажимается соответсвующий пункт меню, после чего вылетает ошибка. Нужно сделать проверку, если PopUp открыт в пустом месте ListView, то игнорировать нажатия на пункты меню. Как такое сделать если с MouseDown было более менее понятно то тут уже нет.

[mihali4]

В обработчиках пунктов меню в самом начале:

if ListView1.Selected=nil then
exit;

или как уже говорилось:

if ListView1.GetItemAt(xn,Yn)=nil then
exit;

а Xn и Yn берем отсюда:

procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button=mbRight then
begin
xn:=x;
yn:=y;
end;
end;

[Shouldercannon]

Спасибо Вам огромное mihali4, как всегда выручаете