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.


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.