Tirar Barra de Rolagem Vertical de DBGrig

Question

Como fa�o para fazer com que a barra de rolagem vertical de um DB Grid n�o apare�a?Tem menos linhas doque o tamanho do dbgrid e mesmo assim a barra aparece....

Diogoalles · Answer

Para remover a barra de rolagem vertical de componente TDBGrid, voc� precisa apenas criar um novo componente herdado da classe TDBGrid e reescrever o m�todo paint.

No m�todo Paint voc� usar� a API do Windows SetScrollRange definindo o tamanho m�ximo e m�nimo do scroll para zero (isto desabilitar� a exibi��o da barra de scroll).

E ent�o acione o inherited paint para que o objeto novo possa ser desenhado.

O c�digo abaixo mostra uma Unit criada de uma inst�ncia do componente TDBGrid e que n�o possui a barra de rolagem vertical.

unit Newgrid; 
interface 
uses 
WinTypes, WinProcs, Classes, DBGrids; 
 
type 
TNoVertScrollDBGrid = class(TDBGrid) 
 
protected 
procedure Paint; override; 
end; 
 
procedure Register; 
 
implementation 
 
procedure TNoVertScrollDBGrid.Paint; 
begin 
SetScrollRange(Self.Handle, SB_VERT, 0, 0, False); 
inherited Paint; 
end; 
 
procedure Register; 
begin 
RegisterComponents(�Data Controls�, [TNoVertScrollDBGrid]); 
end; 
end.

Raserafim · Answer

valeu diogo, deu certo.utilizei a mesma linha de comando de uma outra forma. coloquei no evento OnPaint do form, com isso nem precisei criar um componente e nem herdar....

Raserafim · Answer

n�o deu t�o certo assim. ao abrir o form,o dbgrid aparece sem as barras, mas � s� musra de linha que as barras voltam.
Fiz ent�o uma classe e herdei da dbgrid e sobrescrevi o metodo paint, mas o refresh � muito grande, n�o d� certo.
preciso de uma outra maneira pra remover as barras de rolagem da dbgrid.

F�rum Tirar Barra de Rolagem Vertical de DBGrig #268599