Delphi(Win32)

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

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


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

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

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

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

スポンサーリンク
記事を書いた人

システムえんじにゃー🐈
趣味はエレキギター、自転車など。作曲したい。
World of Warshipsやってます。
記事に関する質問はお気軽にどうぞ。

surface0 (さーふぇす)をフォローする
surface0 (さーふぇす)をフォローする

コメント

タイトルとURLをコピーしました