Pascal/Delphi Tamanho das colunas no DBGrid

[Insurgent3]

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":

 

 

 

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

 

 

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.