Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.25;
Скачать: 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 вся ветка

Текущий архив: 2004.07.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.022 c
1-1089803500
TransparentGhost
2004-07-14 15:11
2004.07.25
Как определить Font выпадающего списка ComboBoxa?


6-1085374314
aper
2004-05-24 08:51
2004.07.25
как проверить доступна ли сетевая папка.


14-1088952154
SPeller
2004-07-04 18:42
2004.07.25
Глупость?


1-1089640513
sergeii
2004-07-12 17:55
2004.07.25
Как указать прграме чтобы при нажатии TAB курсор перходил


6-1085802948
Vizzor
2004-05-29 07:55
2004.07.25
Как можно проверить включен ли HTTP/FTP через сокеты?