DBGRID sem Barras de Rolagem

Question

Ai pessoal, valeu pelas dicas ate agora!Me ajudem nessa.Como faco para colocar um DBGRID em meu Form sem barra de rolagemvertical.Valeu galera!!...

Carnette · Answer

449 - Removendo a barra de rolagem vertical do DBGrid
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.

Para mais dicas pegue o arquivo 850 dicas e truques em delphi do LloydSoft em:

http://www.lloydsoft.hpg.ig.com.br/

F�rum DBGRID sem Barras de Rolagem #194703