DBGrid - setando o tamanho das colunas pelo nome

Top  Previous  Next

 

 

procedure SetaTamanhoColuna(const Grid: TDBGrid; const Campo: string; const Tamanho: Integer);

var

  I: Integer;

begin

  with Grid do

  for I := 0 to Pred(Columns.Count) do

    if UpperCase(Columns[I].Field.FieldName) = UpperCase(Campo) then

    begin

      Columns[I].Width := Tamanho;

      Break;

    end;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  SetaTamanhoColuna(Grid, 'nome'40);

  SetaTamanhoColuna(Grid, 'codigo'200);

end;