Muitas vezes ficamos incomodados com aquele ScrollBar que teima em aparecer mesmo que o DBGrid tenha apenas 1 ou 2 linhas.
Visando resolver este problema, este post traz para você uma solução bastante simples de ser implementada.
Coloque no evento onDrawColumnCell do seu DBGrid.
procedure TForm2.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (TStringGrid(DBGrid1).RowCount-1) < 10 then //Se tiver menos de 10 linhas
ShowScrollBar(DBGrid1.Handle,SB_VERT,False); //Remove barra Vertical
end;Listagem 1. Código do evento onDrawColumnCell do DBGrid
É claro que você deve melhorar a lógica, como por exemplo achar o número de linhas (exibidos sem ScrollBar) dependo da altura do DBGrid.
