Скачать: CL | DM;

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

← →
z007   (2004-07-10 23:51) [0]

Почему(?)-то не так как всегда работает.
При показанном Popup (например, к форме), на повторный щелчок правой кнопкой меню не реагирует: по идее должно появляться заново - в месте щелчка. Ан нет...
Как поправить?

---

← →
Gandalf ©   (2004-07-12 18:57) [1]

Це по API-шному, по грамотному... Если у тебя мыша не подвинулась - то меню не показываться. Можно немного мышь сдвигать или делать проверку на меню... Мне это не совсем нравиться - надо проверить координаты старой - а я просто делаю сдвиг на пиксель...

//[function WndProcAutoPopupMenu]
function WndProcAutoPopupMenu( Control: PControl; var Msg: TMsg; var MsgRslt: Integer ): Boolean;
begin
 if (Msg.message = WM_CONTEXTMENU) and
    (Control.fAutoPopupMenu <> nil) then
 begin
   {$IFDEF USE_MENU_CURCTL}
   PMenu( Control.fAutoPopupMenu ).fCurCtl := Control;
   {$ENDIF USE_MENU_CURCTL}
   if GetMenu(Control.Handle)=0 then // Проверка если меню уже есть
     PMenu( Control.fAutoPopupMenu ).Popup( SmallInt( LoWord( Msg.lParam ) ),
          SmallInt( HiWord( Msg.lParam ) ) )
   else
     PMenu( Control.fAutoPopupMenu ).Popup( SmallInt( LoWord( Msg.lParam ) ),
          SmallInt( HiWord( Msg.lParam )+1 ) );
   Result := TRUE;
 end
   else
 Result := FALSE;
end;

---

← →
z007   (2004-07-13 23:07) [2]

Почему-то не помогает...
Дело вот в чем. Создаю пустой kol-проект, делаю popupMenu для формы.
Щелкаю правой кнопкой - меню появляется.
Передвигаю мышь в другую область формы, щелкаю правой кнопкой. Новое меню не появляется, прежнее - не исчезает (содержание меню зависит от того, в какой точке нажата правая кнопка).Пока что приходится нажимать левую кнопку, чтобы сбросить всплывшее меню.

---

← →
Vladimir Kladov   (2004-07-14 15:46) [3]

А если TKOLApplet на форме лежит? (без MCK - отдельно от MainForm создается Applet, как в примере)?

---

← →
z007   (2004-07-18 11:48) [4]

Я извиняюсь за беспокойство :)
Оказалось достаточным указать
Result.PopupMenu1.Flags := TPM_RIGHTBUTTON;

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c