DBGRID sem Barras de Rolagem
Ai pessoal, valeu pelas dicas ate agora!
Me ajudem nessa.
Como faco para colocar um DBGRID em meu Form sem barra de rolagem
vertical.
Valeu galera!!
Me ajudem nessa.
Como faco para colocar um DBGRID em meu Form sem barra de rolagem
vertical.
Valeu galera!!
Igor
Curtidas 0
Respostas
Carnette
13/11/2003
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.
Para mais dicas pegue o arquivo 850 dicas e truques em delphi do LloydSoft em:
http://www.lloydsoft.hpg.ig.com.br/
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/
GOSTEI 0