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

Вниз

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

← →
X-Disa   (2005-02-21 14:11) [0]

Здравствуйте. Столкнулся с проблемой: На форме MDIChild на OnMouseWheel установлена процедура, но если на главной форме поставить Edit и установить на него фокус, она не работает. Вопрос, как заставить OnMouseWheel работать всегда, независимо от того где фокус?

---

← →
ssk ©   (2005-02-21 15:07) [1]

protected
   procedure WMMOUSEWHEEL(var Message: TMessage); message WM_MOUSEWHEEL;

procedure TForm1.WMMOUSEWHEEL(var Message: TMessage);
begin
 if Screen.ActiveControl is TEdit then
   if Message.WParam < 0 then
     // вниз
       else
         // вверх
 inherited;
end;

---

← →
debuger ©   (2005-02-21 15:21) [2]

поставить глобальный хук на мышу

---

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

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

Наверх

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