Controlar a Exibição da Barra de Rolagem Vertical do DBGrid

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (2)  (0)

Controle a exibição da barra de rolagem do seu DBGrid dependendo do número de linhas.

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.

Listagem 1: Código do evento onDrawColumnCell do 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;
 

É 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.

Abraço a todos e até a próxima!

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?