Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.05.28;
Скачать: CL | DM;

Вниз

PopupMenu - правой кнопкой   Найти похожие ветки 

 
BMouradov   (2005-09-22 18:20) [0]

Можно ли сделать так, чтобы в Popup меню можно было выбирать пункты не только левой, но и правой кнопкой мыши? По-умолчанию OnItem происходит только от левой.


 
ECM ©   (2005-09-22 18:28) [1]

можно


 
BMouradov   (2005-09-22 19:01) [2]

Замечательно! А как?


 
ECM ©   (2005-09-23 10:42) [3]

Это уже второй вопрос...:)
Например так:

var
 IsPopup: Boolean = FALSE;

function TForm1.KOLForm1Message(var Msg: tagMSG; var Rslt: Integer): Boolean;
begin
 Result := FALSE;
 if (Msg.message = WM_CONTEXTMENU) then begin
   if IsPopup then Form.Postmsg(WM_KEYDOWN,VK_RETURN,0)
   else IsPopup := TRUE;
 end else if Msg.message = WM_COMMAND then
   IsPopup := FALSE;
end;


 
Vladimir Kladov   (2005-09-23 17:43) [4]

вообще-то достаточно у popupmenu установить Flags := Flags or TPM_RIGHTBUTTON, см. комментарии в исходнике!


 
BMouradov   (2005-09-23 19:22) [5]

Спасибо большое!



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

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

Наверх




Память: 0.47 MB
Время: 0.028 c
15-1146315761
GeserX
2006-04-29 17:02
2006.05.28
запись CD


15-1145961309
Manic Mechanic
2006-04-25 14:35
2006.05.28
Сходил таки на керлинг, как приглашали


4-1141839490
AlexeyT
2006-03-08 20:38
2006.05.28
Работа с NTFS permissions


3-1144406589
Dest81
2006-04-07 14:43
2006.05.28
Adotable.filter


2-1147101450
Ezorcist
2006-05-08 19:17
2006.05.28
Обращение к сайту