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

Как прописать условия появления PopupMenu?   Найти похожие ветки 

← →
Islander   (2004-07-11 11:29) [0]

Здравствуйте!

Есть компонент и попапменю к нему. Надо сделать так, чтобы при определенных условиях при щелчке на этом компоненте меню раскрывалось, а при других условиях - нет. Как это можно сделать?

---

← →
Arm79   (2004-07-11 11:56) [1]

Изменяй значение поля PopupMenu у компонента на nil и popupmenu1

---

← →
Islander   (2004-07-11 12:44) [2]

Нет, это надо сделать в момент обработки события PopupMenu Popup

---

← →
Arm79   (2004-07-11 13:06) [3]

Вообще то анализ условий показа меню можно осуществить по событию онКлик компонента, не доводя дело до события Попап

А так, ну прям не знаю, пробеги по списку итемов меню и установи каждому свойство Visible в False или True в зависимости от условий

---

← →
GrayFace ©   (2004-07-11 14:21) [4]

OnContextPopup. Если условия выполняются, то PopupMenu1.Popup(mouse.CursorPos.x,mouse.CursorPos.y);

---

← →
Almaz ©   (2004-07-11 14:24) [5]

> Islander   (11.07.04 11:29)  
> Здравствуйте!
>
> Есть компонент и попапменю к нему. Надо сделать так, чтобы
> при определенных условиях при щелчке на этом компоненте
> меню раскрывалось, а при других условиях - нет. Как это
> можно сделать?

В D5 и выше есть событие OnContextPopup. Если обработчик OnContextPopup установит Handled := TRUE; то PopupMenu, связанное с компонентом, вызвано не будет, а если  Handled := FALSE;, то соответственно будет.
Например:

procedure TForm1.Memo1ContextPopup(Sender: TObject; MousePos: TPoint;
 var Handled: Boolean);
begin
 Handled := ...Мое условие...;
end;

Удачи.

---

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

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



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