Скачать: 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 вся ветка

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



Память: 0.45 MB
Время: 0.007 c