Текущий архив: 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.041 c