Ver Mensaje Individual
  #4  
Antiguo 29-03-2008
Avatar de chinosoft
chinosoft chinosoft is offline
Miembro
 
Registrado: nov 2006
Posts: 28
Reputación: 0
chinosoft Va por buen camino
Smile Creo que esta

Al formulario le agregue un TAppicationEvents y en el evento OnMessage escribi lo siguiente.

Código:
void __fastcall TFrmPanelCliente::AppEveMessage(tagMSG &Msg, bool &Handled)
{
    int i;
    if (Msg.message == WM_MOUSEWHEEL){

     Msg.message = WM_KEYDOWN;
     Msg.lParam = 0;
     i = Msg.wParam;

     if (i > 0) {

       Msg.wParam = VK_UP;

     }else{

       Msg.wParam = VK_DOWN;

     }

     Handled = true;

    }
}
y listo, no respondio mas el scroll.

Muchas Gracias escafandra!
__________________
:D chinosoft - only
Responder Con Cita