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.