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

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

← →
pomashok   (2004-12-01 11:20) [0]

Привет! Возникла такая необходимость:
1. Как проверить программно какое событие происходит MouseWheelUP или MouseWheelDown?
2. Как послать сообщение об эмуляции вращения колесика мышки (скажем через SendMessage может быть ;) )?

---

← →
WondeRu ©   (2004-12-01 12:49) [1]

pomashok   (01.12.04 11:20)
Как проверить программно какое событие происходит

если в твоем приложении, то используй TAplication Events, событие WM_MOUSEWHEEL (жми F1)
а если во всей системе хочешь ловить, то используй DirectInput

а послылать событие от колеса запросто той же WM_MOUSEWHEEL

---

← →
pomashok   (2004-12-01 13:03) [2]

по WM_MOUSEWHEEL (жми F1) у меня справки нету ;(
может есть ссылочка или кусок кода?

---

← →
TUser ©   (2004-12-01 13:40) [3]

> по WM_MOUSEWHEEL (жми F1) у меня справки нету ;(

См. Help -> Win32SDK

---

← →
WondeRu ©   (2004-12-01 13:51) [4]

procedure Application1.OnMessage
 (var Msg: TMsg; var Handled: Boolean) ;
var
 i: SmallInt;
begin
 if Msg.message = WM_MOUSEWHEEL then
 begin
   Msg.message := WM_KEYDOWN;
   Msg.lParam := 0;
   i := HiWord(Msg.wParam) ;
   if i > 0 then
     Msg.wParam := VK_UP
   else
     Msg.wParam := VK_DOWN;

   Handled := False;
 end;
end;

или

pulbic
procedure MouseWheel(var Message: TMessage); message WM_MOUSEWHEEL;

procedure MouseWheel(var Message: TMessage);
begin
   Message.Msg := WM_KEYDOWN;
   Message.lParam  := 0;

   if Message.WParam > 0 then
      Message.WParam := VK_UP
   else
       Message.WParam := VK_DOWN;

   SendMessage(Handle,Message.Msg,Message.WParam,Message.LParam);
end;

---

← →
pomashok   (2004-12-01 14:11) [5]

spasibo :)

---

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

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



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