DBGrid

Delphi

05/03/2003

O que fazer para que um DBGrid não exiba barra de rolagem?


Anonymous

Anonymous

Curtidas 0

Respostas

Janete

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


GOSTEI 0
Anonymous

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é...


GOSTEI 0
POSTAR