| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

PopupMenu - правой кнопкой

BMouradov ©   (2005-09-22 18:20:00) 

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

---

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

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

---

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

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

---

ECM   (2005-09-23 10:42:00) [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;

---

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

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

---

ECM   (2005-09-22 18:28:00) [5]

можно

---

Наверх