Desabilitar Barra Vertical

Question

Ola Pessoal !!Como Fa�o para desabilitar a Barra de rolagem Vertical do DBGrid no Delphi 6???...

Ageualves · Answer

??...

Anonymous · Answer

Retirando a barra vertical do

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.

Se n�o resolver o problema, retorne!

Jo�o D. A. Faria

Ageualves · Answer

Valeu Meu Camarada !!Vou Verificar Ok !!...

Anonymous · Answer

N�o Funcionou :cry: Embora o o Componente seja criado ao executar o programa da Erro[b:8bc06b1f93] ( [Fatal Error] Unit1.pas(7): File not found: �DBGrid.dcu�)[/b:8bc06b1f93] e o Delphi Acrescenta na Uses mais um DBgrid.

Como vc pode perceber Sou Iniciante no Delphi :o

Adilsond · Answer

Existe uma fun��o na unit windows.Unit Windows; ShowScrollBar(DBGrid1.Handle,SB_VERT,False);...

Anonymous · Answer

Certo, Isso Funcionou, mas precisa de alguns ajustes. Quando move-se entre as celulas de cima para baixo e vice-versa a b.vertical da umas piscadas. 8)

Mas AdilsonD Valeu tbem pela Dica :wink:

Existe uma fun��o na unit windows. Unit Windows; ShowScrollBar(DBGrid1.Handle,SB_VERT,False);

F�rum Desabilitar Barra Vertical #144613