Adicionando Colunas em GridView em tempo de execução

Olá, neste pequeno tutorial vou mostrar como adicionar colunas a um gridview no Code Gear RAD Studio .NET (Delphi 2007 for .NET) em tempo de execução.

Para começarmos, coloque no form um button e uma gridview, altere a propriedade da gridview AutoGenerateColumns para false, então, para adicionar as colunas manulmente em tempo de execução, adicione no evento onclick do button o seguinte código:


...
 var
    coluna1, coluna2 : BoundField;
  begin
    coluna1 := boundfield.create;
    coluna2 := boundfield.create;
  try
    coluna1.DataField:='NOME';
    coluna1.HeaderText:='Nome';
    coluna2.DataField:='ENDERECO';
    coluna2.HeaderText:='Endereço';
    //datafield é o nome do campo que busca no BD
    //header é o que aparece como cabecalho da coluna adicionada
    //se vc pressionar ctrl+space poderá ver as outras propriedades que podem ser configuradas
    gridview.columns.insert(0,coluna1);
    gridview.columns.insert(1,coluna2);
    //faz a consultaq sql no banco para trazer os dados para grid
    gridview.datasource := 'select...';
    gridview.databind;
  finally
    coluna1.free;
    coluna2.free;
  end;
end;

Até +