Fórum tirar scroll do dbgrid #333255
17/11/2006
0
gostaria que não aparecesse o scroll no dbgrid se os dados que está mostrando não for ficar abaixo da tela visivel.. gostaria que aparecesse o scroll somente quando tivesse dados que não foi possivel visualizar.
Zumbi
Curtir tópico
+ 0
Responder
Posts
19/11/2006
Acacio
Aqui tem um componente derivado do DBGrid que tira o Scroll,
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;
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)