DBGrid
O que fazer para que um DBGrid não exiba barra de rolagem?
Anonymous
Curtidas 0
Respostas
Janete
05/03/2003
Olá amigo, não sei se é possível, pois ela é criada automáticamente conforme o aumento dos dados, mais se descobrir eu te aviso.
Janete
Janete
GOSTEI 0
Anonymous
05/03/2003
Gente, copiei isso da internet a algum tempo (ainda não precisei testar)!! Depois, postem para dizer se funcionou, falou???
COMO RETIRAR A BARRA DE ROLAGEM DO DBGRID
==================================
Para remover a barra de rolagem vertical de um DBGrid, você deve criar um método Paint exatamente igual ao do componente pai (o DBGrid), ou seja um método paint com a cláusula override. Este método paint, vai chamar um outro metodo SetScrollRange da procedure API para pegar o valor máximo e o valor mínimo do scroll e passar ela para zero, desabilitando a scrollbar - scroll values to zero (this disables the scrollbar), e depois, chamar o método paint ascendente. O código abaixo faz isso.
unit NovaGrid;
interface
uses
WinTypes, WinProcs, Classes, DBGrids;
type
TDBGridSemRolagem = class(TDBGrid)
protected
procedure Paint; override;
end;
procedure Register;
implementation
procedure TDBGridSemRolagem.Paint;
begin
SetScrollRange(Self.Handle, SB_VERT, 0, 0, False);
inherited Paint;
end;
procedure Register;
begin
RegisterComponents(´Data Controls´, [DBGridSemRolagem]);
end;
end.
Espero que seja isso que estejam procurando e tomara que funcione.
Até...
COMO RETIRAR A BARRA DE ROLAGEM DO DBGRID
==================================
Para remover a barra de rolagem vertical de um DBGrid, você deve criar um método Paint exatamente igual ao do componente pai (o DBGrid), ou seja um método paint com a cláusula override. Este método paint, vai chamar um outro metodo SetScrollRange da procedure API para pegar o valor máximo e o valor mínimo do scroll e passar ela para zero, desabilitando a scrollbar - scroll values to zero (this disables the scrollbar), e depois, chamar o método paint ascendente. O código abaixo faz isso.
unit NovaGrid;
interface
uses
WinTypes, WinProcs, Classes, DBGrids;
type
TDBGridSemRolagem = class(TDBGrid)
protected
procedure Paint; override;
end;
procedure Register;
implementation
procedure TDBGridSemRolagem.Paint;
begin
SetScrollRange(Self.Handle, SB_VERT, 0, 0, False);
inherited Paint;
end;
procedure Register;
begin
RegisterComponents(´Data Controls´, [DBGridSemRolagem]);
end;
end.
Espero que seja isso que estejam procurando e tomara que funcione.
Até...
GOSTEI 0