Скачать: CL | DM;

Предотвратить появление Popup меню   Найти похожие ветки 

← →
kyn66 ©   (2005-12-27 18:35) [0]

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

---

← →
Leonid Troyanovsky ©   (2005-12-27 18:54) [1]

> 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.

---

← →
begin...end ©   (2005-12-27 19:15) [2]

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

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

---

← →
kyn66 ©   (2005-12-28 09:28) [3]

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

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

---

← →
begin...end ©   (2005-12-28 11:26) [4]

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

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

---

← →
kyn66 ©   (2005-12-28 15:23) [5]

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

---

← →
Alex_Bredin ©   (2005-12-28 18:08) [6]

когда не надо

ListView.PopupMenu := nil;

когда надо

ListView.PopupMenu := lvPopup;

---

← →
ASoft   (2005-12-29 09:27) [7]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.022 c