ScrollBars en un TDBGrid

[Faust]

Saludos, yo uso un truquillo tomado de Trucomania 334, me funciona perfectamente en Delphi 7 Enterprise.

El código es el siguiente:

Código Delphi [-]
  TStringGrid(DBGrid).Scrollbars:=ssNone;
// Muestra únicamente la barra vertical

  TStringGrid(grdEmpresas).Scrollbars:=ssBoth;
// Muestra únicamente la barra horizontal

  TStringGrid(grdEmpresas).Scrollbars:=ssHorizontal;
// Muestra ambas barras

  TStringGrid(grdEmpresas).Scrollbars:=ssVertical;
//No muestra ninguna barra

Solo que tiene un comportamiento curioso... las barras que aparecen no son las de las constantes, ya sabes con ssNone no debería de mostrar ninguna, con ssBoth debería mostrar ambas, etc.

Espero te ayude.