TListViewのポップアップメニュー制御

TListViewのポップアップを制御する方法について少々。

なぜ今まで考えたことがなかったのか不思議だが、
TListViewを使ったときにアイテムが選択されているときのみ右クリックによるポップアップメニューを表示し、
非選択時はそれを抑制する方法を考えた。

意外と苦戦したが、以下の方法であっさり仕上がった。

procedure TMyForm.MyListViewSelectItem(Sender: TObject;
                                       Item: TListItem;
                                       Selected: Boolean);
begin
  MyPopup.AutoPopup := Selected;
end;

アイテムの選択・非選択時にポップアップの有効・無効を切り替える。
これより良い手段があれば教えていただきたいところ。