Sin mouse en todo el programa

[ecfisa]

Hola Ruben_21.

Una solución posible es esta:

Cuando desactives el mouse usa este código:

procedure TForm1.DesactivarScrollBar;
begin
  // DESACTIVAR SCROLL HORIZONTAL
  EnableScrollBar(DBGrid1.Handle,SB_VERT,ESB_DISABLE_BOTH);
  // DESACTIVAR SCROLL VERTICAL
  EnableScrollBar(DBGrid1.Handle,SB_HORZ,ESB_DISABLE_BOTH);
end;

Cuando actives el mouse usa esto:

procedure TForm1.ActivarScrollBar;
begin
  // ACTIVAR SCROLL VERTICAL
  EnableScrollBar(DBGrid1.Handle,SB_VERT,ESB_ENABLE_BOTH);
  // ACTIVAR SCROLL HORIZONTAL
  EnableScrollBar(DBGrid1.Handle,SB_HORZ,ESB_ENABLE_BOTH);
end;

Saludos.