rueda central del raton, no vaaa

[User_baja1]

Hola a todos,
en los clientes donde tengo instalado el programa hecho con D5, no va bien la rueda central del raton, en cambio en mi ordenador de desarrollo si.
¿sabeis por que?

Os comento:
cuando sobre un grid normal, desplazo la rueda del raton, se mueve el foco y cuando ha llegado al final de la parte visible, entonces se mueve la barra de scroll del grid,... normal no??

Pues cuando lo hacen en los usuarios en sus terminales, no funciona. He probado a cambiar las opciones del mouse en el panel de control, pero no funciona.

¿Alguna idea?
Gracias.
David.

[roman]

De hecho el DBGrid no maneja correctamente la rueda del ratón. Te recomiendo que uses el RXDbGrid de las librerías RX. También puedes usar esta solución.

// Saludos

[User_baja1]

Vale, probare las RXLib, pero.... estan soportadas en delphi 2005?
, ya que mas tarde compilare el programa con D2005.

Empezado por roman

De hecho el DBGrid no maneja correctamente la rueda del ratón. Te recomiendo que uses el RXDbGrid de las librerías RX. También puedes usar esta solución.

// Saludos

[crack_neon]

Hola, yo tengo el problema pero con los formularios, podrian orientarme para que reconosca la ruedita?

De antemano gracias.

[vtdeleon]

Saludos

Hola, yo tengo el problema pero con los formularios, podrian orientarme para que reconosca la ruedita?

Deberias iniciar otro hilo. Y en ese hilo darno mas detalles, lo que escribe no deja muy claro lo que deseas.

[crack_neon]

El problema del dbgrid lo solucione con esto:

En las Private declarations agregue un procedimiento (PillaLaRueda) con el nombre del dbgrid antecediendolo.

Código Delphi [-]
 
{ Private declarations }
procedure DBGClientePillaLaRueda(var Message: TMessage);

Y debajo de la implementación :

Código Delphi [-]
 
implementation

{$R *.dfm}

type
   TomaInvento = class(TControl);

procedure TfrmClientes.DBGClientePillaLaRueda(var Message: TMessage);
var
  Cuanto : short;
begin
  if (Message.Msg = WM_MOUSEWHEEL) then begin
    Cuanto:=HIWORD(Message.WParam);
    Cuanto:=Cuanto div 120;
    DBGCliente.DataSource.DataSet.MoveBy(-Cuanto);
    frmClientes.DBGClienteCellClick(nil);
  end else TomaInvento(DBGCliente).WndProc(Message);
end;

Por ultimo en el FormCreate se le asigna al dbgrid el procedimiento.

Código Delphi [-]
procedure TfrmClientes.FormCreate(Sender: TObject);
begin
  DBGCliente.WindowProc := DBGClientePillaLaRueda;
end;

Nota: soy novato, disculpen mi mala explicación, pero pueden estar seguros que el código funciona, ojala les sea de utilidad.

Mi problema con poder usar la ruedita en un Form ya lo solucione:

En el evento OnMouseWheelDown del Form escribi:

Código Delphi [-]
FormCrearCocina.ScrollBy(0,-20);

En el evento OnMouseWheelUp del Form escribi:

Código Delphi [-]
frmCrearCocina.ScrollBy(0,20);

Nuevamente les mando un saludo.