Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2011.09.25;
Скачать: CL | DM;

Вниз

Редирект сообщения MouseWheel   Найти похожие ветки 

 
EgorovAlex ©   (2010-02-25 13:54) [0]

Использую такой код:

//TApplicationEvents.OnMessage procedure TMainForm.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
var   mousePos: TPoint;
 wc: TWinControl;
begin
 //mouse wheel scrolling for the control under the mouse
 if Msg.message = WM_MOUSEWHEEL then
 begin
   mousePos.X := Word(Msg.lParam);
   mousePos.Y := HiWord(Msg.lParam);
   wc := FindVCLWindow(mousePos);
   if wc = nil then
     Handled := True
   else
   if wc.Handle <> Msg.hwnd then
   egin
     SendMessage(wc.Handle, WM_MOUSEWHEEL, Msg.wParam, Msg.lParam);
     Handled := True;
   end;
 end;
end;

Он работает так - прокручивается тот контрол при повороте колеса мыши, над которым находится мышь, а не тот, который имеет в данные момент фокус ввода. Это всё работает прекрасно пока я не кидаю на форму TVirtualStringTree. C ним это не проходит :( И на него сообщение не редиректится и когда он активен не редиректятся сообщения другим контролам. Может кто знает почему это может быть?


 
12 ©   (2010-02-25 14:04) [1]

ну это.. окно его как-то ворует сообщение?


 
KilkennyCat ©   (2010-02-25 14:12) [2]

Почему ворует? он первый его получает.



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

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

Наверх




Память: 0.47 MB
Время: 0.015 c
15-1306822456
Evgeniy_gd
2011-05-31 10:14
2011.09.25
Покритикуйте инструкцию по использованию флешек USB.


2-1307428806
Evgnevius
2011-06-07 10:40
2011.09.25
Помогите разобраться с DIB


15-1306920650
Дмитрий С
2011-06-01 13:30
2011.09.25
eval в 4ом FireFox, баг?


15-1306960198
Юрий
2011-06-02 00:29
2011.09.25
С днем рождения ! 2 июня 2011 четверг


2-1307420263
Sergey
2011-06-07 08:17
2011.09.25
Как перевести каретку в мемо в конец строки?