Controlar scrollbars en DBGrid

[Pericles]

Hola, buscando por ahi veo que alguien sobreescribe el metodo de refresco de la barra de scroll. En el ejemplo solo se indica si se muestran o no las barras.(funciona perfecto).
Para lo que planteas (habria que probar) se me ocurre evaluar cantidad de registros que soporta tu dbgrid (segun el alto del grid) y la cantidad de registros en el Dataset.


Saludos
Nicolas Perichon

Código Delphi [-]

....
type
  TDBGrid = class(DBGrids.TDBGrid)
  private
    procedure UpdateScrollBar; override;
  end;
...

implementacion del metodo:

Código Delphi [-]

procedure TDBGrid.UpdateScrollBar;

begin
  
 IF bdGrid.datasource.dataset.fields.count > cantidadMaxima  THEN ShowScrollBar(form1.DBGrid1.Handle, SB_VERT, False);

 
  //ShowScrollBar(form1.DBGrid1.Handle, SB_HORZ, False);

  end;

[jocaro]

Gracias Pericles por tu ayuda

En mi caso, he probado el código, pero el dbgrid sigue presentando ambas barras de scroll, incluso si el área del dbgrid es suficientemente grande para presentar todos los registros. No se si será debido a un error mio, a la versión del Delphi (XE2)...

Espero que alguno de vosotros pueda indicarme un pequeño ejemplo del uso del componente de roman:

Código Delphi [-]
unit AutoSBDBGrid;

interface

uses
  Windows, Messages, Classes, DBGrids;

type
  TrmDBGrid = class(TDBGrid)
  protected
    procedure WMNCCalcSize(var msg: TMessage); message WM_NCCALCSIZE;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TrmDBGrid]);
end;

{ TrmDBGrid }

procedure TrmDBGrid.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;

end.

Gracias

[ecfisa]

Hola jocaro.

Otra forma podría ser usando el evento OnDataChange del TDataSource asociado:

Código Delphi [-]
...
type
  TDBGrid = class(DBGrids.TDBGrid);
  TTuForm = class(TForm)
    ...
    TuDataSource: TDataSource;
    TuDBGrid: TDBGrid;
    procedure TuDataSourceDataChange(Sender: TObject; Field: TField);
  ...

implementation

procedure TTuForm.TuDataSourceDataChange(Sender: TObject; Field: TField);
begin
  with TuDBGrid do
    ShowScrollBar(Handle, SB_VERT + SB_CTL, DataSource.DataSet.RecordCount > VisibleRowCount);
end;

Funciona en Delphi 7, pero habrá que ver en XE2...

Saludos

[jocaro]

Gracias ecfisa

Funciona correctamente en XE2

Un saludo