Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.045 c
1-1108994790
Sonic_gd
2005-02-21 17:06
2005.03.06
Кодировка


3-1107533425
Zif
2005-02-04 19:10
2005.03.06
Нужна помощь с выборкой типа DualListBox.


1-1108304762
Сергей Ю.
2005-02-13 17:26
2005.03.06
Как можно разделить функции одной программы между несколькими?


1-1108671311
ASM
2005-02-17 23:15
2005.03.06
AutoLoad


1-1108728732
Cosinus
2005-02-18 15:12
2005.03.06
Обращение к объектам, расположенным на MDIChild из MdiMain