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.

[ecfisa]

Hola de nuevo.

Me acordé que si preferis ocultarlas tenes esta opción:

procedure TForm1.OcultarScrollBar;
begin
  ShowScrollBar(DBGrid1.Handle,SB_VERT,False);
  ShowScrollBar(DBGrid1.Handle,SB_HORZ,False);
end;

Y para mostrarlas nuevamente:

procedure TForm1.MostrarScrollBar;
begin
  ShowScrollBar(DBGrid1.Handle,SB_VERT,True);
  ShowScrollBar(DBGrid1.Handle,SB_HORZ,True);
end;

Saludos.

[Ruben_21]

Muchas gracias ecfisa ... funciona perfecto

Gracias de nuevo.

Saludos.