¿Cómo esconder o eliminar el vertical ScrollBar de un DBGrid?

[[gluglu]]

Permíteme, compañero, que te remita aqui al respecto

[[eduarcol]]

probando la solucion me parece que en el evento afterscroll del dataset cumple la funcion, se ve un ligero parpadeo del repintado pero es mejor que estar dibujando Paneles, a mi manera de ver las cosas.

pero sigo sin enteder que mal puede hacer el pobre scroll alli

edito:
Para el que no sepa de lo que se habla, me refiero a la instruccion

ShowScrollBar(Grid.Handle,SB_HORZ,false);

[[gluglu]]

ShowScrollBar(Grid.Handle, SB_HORZ, false);

No estabamos hablando de la barra 'vertical' ?

[[eduarcol]]

Empezado por gluglu

No estabamos hablando de la barra 'vertical' ?

bueno, ya me voy a tener que ir a dormir

[[enecumene]]

Empezado por gluglu

Permíteme, compañero, que te remita aqui al respecto

Gracias GluGlu, tome la opción de Neftali y me funciona perfectamente y gracias también a Eduarcol.

En unos momentos pondré el componente aquí.

Saludos.

[[enecumene]]

Pues he aquí el componente, una Grilla sin el Vertical ScrollBar, Gracias al código de Neftalí via Link por GluGlu, voy a seguir jugando con el componente haciendole varias modificaciones.

DBGrilla.zip

Saludos.

[roman]

Partiendo del código de Neftalí podríamos intentar detectar cuando son necesarias las barras:

Código Delphi [-]
procedure TExtendedDBGrid.WMNCCalcSize(var msg: TMessage);
var
  Style: Integer;

begin
  if Assigned(DataSource) and Assigned(DataSource.DataSet) then
  begin
    Style := GetWindowLong(Handle, GWL_STYLE);

    if DataSource.DataSet.RecordCount > VisibleRowCount then
      Style := Style or WS_VSCROLL
    else
      Style := Style and not WS_VSCROLL;

    SetWindowLong(Handle, GWL_STYLE, Style);
  end;

  inherited;
end;

// Saludos

[[enecumene]]

Gracias Román, debo decirte que el código que propones me dio problemas, en tiempo de diseño no muestra los borde ni los scroll, pero me tira este error:

---------------------------
Error
---------------------------
Access violation at address 51007648 in module 'dclusr70.bpl'. Read of address 00000030.
---------------------------
OK
---------------------------

Me lo tira al momento de ponerlo en el Form y al momento en que le altero el tamaño del grid, en cambio, en tiempo de ejecución los Scroll vuelven a aparecer.

Saludos.

EDITO: No me di cuenta que el código indica que los ScrollBars aparecerán cuando sean necesarias. Perdón Román.

[roman]

Empezado por enecumene

EDITO: No me di cuenta que el código indica que los ScrollBars aparecerán cuando sean necesarias. Perdón Román.

¿Entonces? ¿Funciona o no? ¿Qué fue del Access Violation?

// Saludos

[[enecumene]]

Empezado por roman

¿Entonces? ¿Funciona o no? ¿Qué fue del Access Violation?

// Saludos

Ello me funciona, el error me aparece en tiempo de diseño, sólo cuando lo inserto en el formulario y le altero el tamaño, lo demás está bien.

Saludos.