Ir ao conteúdo
  • Cadastre-se
Insurgent3

Delphi Tamanho das colunas no DBGrid

Posts recomendados

Olá à todos,

 

Tenho um DBGrid e gostaria que os campos(colunas) ficassem juntas uma das outras quando eu compilar o programa.


Veja, tenho vários campos da tabela "Cliente":

 

image.png

 

 

Mas quando executo o programa, o DBGrid coloca espaços "gigantes" entre as colunas:

 

image.png

 

Alguém sabe dizer como coloco as colunas uma ao lado da outra?

 

adicionado 23 minutos depois

Consegui!


Encontrei na internet.

 

Foi criado uma Procedure:

 

procedure InicializaGrid(DBGrid1: TDBGrid);
var
  I: Integer;
begin
  for I := 0 to DBGrid1.Columns.Count - 1 do
    DBGrid1.Columns[I].Width := 20 + DBGrid1.Canvas.TextWidth(DBGrid1.Columns[I].Title.caption)
end;

 

E no evento "OnActivate" foi chamado a procedure:

 

procedure TForm1.FormActivate(Sender: TObject);
begin
InicializaGrid(DBGrid1);
end;

 

Resolvido. Obrigado.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Redes de Computadores - Gabriel Torres

PROMOÇÃO DE QUARENTENA

De R$ 39,90 por apenas R$ 9,90 só até as 23h59min desta sexta-feira 03/04/2020

CLIQUE AQUI E COMPRE AGORA MESMO!