DBGrid sin barra de deslizamiento vertical

[Neftali [Germán.Estévez]]

Aquí tienes un nuevo componente DBGrid que no tiene barra de scroll vertical.
Sólo tienes que grabar el código en un fichero llamado DBgridNoSc.PAS y luego instalarlo en Delphi como un componente más.

Código Delphi [-]
unit DBgridNoSc;

interface

uses
     WinTypes, WinProcs, Classes, DBGrids;
type
     TDBgridNoSc = class(TDBGrid)
           protected
           procedure Paint; override;
     end;

procedure Register;

implementation

procedure TDBgridNoSc.Paint;
begin
SetScrollRange(Self.Handle, SB_VERT, 0, 0, False);
inherited Paint;
end;

procedure Register;
begin
RegisterComponents('Data Controls', [TDBgridNoSc]);
end;

end.

NOTA: Para crear un componente sin barra de deslizamiento horizontal, hay que sustituir en el ejemplo anterior SB_VERT por SB_HOR.
Para suprimir ambas barras, hay que añadir ambas líneas de SetScrollRange.