usar la ruedita del mouse en Builder 6

[lmpadron]

Saludos,
Recientemente encontré un código para implementar el uso de la rueda del mouse (wheel) en los Grid y otros componentes. El código estaba en Pascal y como trabajo con C++ lo traduje quedando algo asi
Código Pascal en el sitio web

Código Delphi [-]
procedure TForm1.ApplicationEvents1Message
   (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;

Una ves traducido quedó algo asi.
Código C++

void __fastcall TForm3::ApplicationEvents1Message(tagMSG &Msg,
      bool &Handled)
{
	int i;
	if (Msg.message == WM_MOUSEWHEEL)
	{
		Msg.message = WM_KEYDOWN;
		Msg.lParam = 0;
		i = HIWORD(Msg.wParam);
		if (i == 120)
		{
			Msg.wParam = VK_UP;
		} 
	        else
	        {
		        Msg.wParam = VK_DOWN;
	        }
	        Handled = false;
       }
}

Como pueden ver en el código en Pascal no me funcionaba bien con el i > 0 porque i solo obtenía dos valores 65416 cuando se usaba el Wheel Down y 120 cuando se usaba el Wheel Up. Por lo que lo modifique en mi código en c++ poniendo i == 120
La pregunta concreta es, eso esta bien, I siempre obtiene esos valores en c++ o pueden variar, en caso de variar debería poner la condición i > algo, pues cual seria ese algo?
Gracias de antemano por su tiempo

[ecfisa]

Hola Impadron.

En realidad no entendí bien cuál es el problema, pero yo lo tengo implementado de este modo y funciona correctamente.

Header:

...
private:	
  void __fastcall MouseWheel(tagMSG &Msg, bool &Handled)
...

cpp:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
 Application->OnMessage = MouseWheel;
}

void __fastcall TForm1::MouseWheel(tagMSG &Msg, bool &Handled)
{
  if (Msg.message == WM_MOUSEWHEEL) {
    Msg.message = WM_KEYDOWN;
    Msg.lParam = 0;
    if ((char)HIWORD(Msg.wParam) > 0)
      Msg.wParam = VK_UP;
    else
      Msg.wParam = VK_DOWN;
    Handled = false;
  }
}

Saludos

Edito: El cast a char permite el desborde que se evalua en el condicional.

[j0seant]

En lugar de HIWORD, hay una macro pensada para esto:

GET_WHEEL_DELTA_WPARAM(Msg.wParam)