| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Предотвратить появление Popup меню [D7, WinXP]

kyn66 ©   (2005-12-27 18:35:00) 

Как САБЖ при правом клике по элементу, в частности интересует ListView. Точнее не показывать при определенных только условиях.

---

ASoft   (2005-12-29 09:27:00) [1]

имхо, не правильно, думаю, НЕ показывать PopupMenu когда не надо. Чтоб не сбивать с толку юзеров, правильней показывать PopupMenu, но с неактивными его строками.

---

Alex_Bredin   (2005-12-28 18:08:00) [2]

когда не надо

ListView.PopupMenu := nil;

когда надо

ListView.PopupMenu := lvPopup;

---

kyn66   (2005-12-28 15:23:00) [3]

> begin...end
Пардонс, не усмотрел..с.

---

begin...end   (2005-12-28 11:26:00) [4]

> kyn66 ©   (28.12.05 09:28) [3]

А оно есть -- у TControl и у любого его потомка. Значит, и у TListView тоже есть.

---

kyn66   (2005-12-28 09:28:00) [5]

>> В обработчике OnContextPopup:

А что-то я не обозрел такого события..

---

begin...end   (2005-12-27 19:15:00) [6]

В обработчике OnContextPopup:

Handled := <условие_НЕпоказывания>

---

Leonid Troyanovsky   (2005-12-27 18:54:00) [7]

> kyn66 ©   (27.12.05 18:35)  
> Как САБЖ при правом клике по элементу, в частности интересует
> ListView. Точнее не показывать при определенных только условиях.


procedure TForm1.PopupMenu1Popup(Sender: TObject); // OnPopup
begin
   with Sender as TPopupMenu do
     begin
       if {определенное условие} then
         Abort;
     end;
end;


--
Regards, LVT.

---

Наверх