ADO Database Delphi

Title: Removing the vertical scrollbar from a TDBGrid
Question:
Answer:
type
TNoVertScrollDBGrid = class(TDBGrid)
protected
procedure Paint; override;
end;
implementation
procedure TNoVertScrollDBGrid.Paint;
begin
SetScrollRange(Self.Handle, SB_VERT, 0, 0, False);
inherited Paint;
end;