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]

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

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