acrescentar colunas no dbgrid

Delphi

03/01/2017

Pessoal tenho um dbgrid com 3 colunas valor1, valor2, valor3 ... e tenho uma combobox com os valor 0, 2, 3, 4, 5
gostaria de saber se tem como eu selecionar o valor 3 na combo e no dbgrid acrescentar mais 3 colunas valor4, valor5, e valor6 ou seja a grid aumenta aqtde de colunas de acordo com o valor da combo, mas as colunas tem que esta ligadas aos campos valores da tabela.???????

existe a possibilidade de se fazer isto??
Antonio Santos

Antonio Santos

Curtidas 0

Respostas

Raimundo Pereira

Raimundo Pereira

03/01/2017

Boa tarde,
Veja se ajuda..

procedure TForm1.Button1Click(Sender: TObject);
var ValorCBX :integer;
  I: Integer;
begin
//DBGrid1.Columns.Clear;//Exclui colunas do dbgrid

try
ValorCBX:=DBGrid1.Columns.Count+StrToInt(ComboBox1.Text);

for I := DBGrid1.Columns.Count to ValorCBX-1 do
begin
 DBGrid1.Columns.Add;
 DBGrid1.Columns[i].Title.Caption:=('Coluna - '+IntToStr(i));
end;

except
ShowMessage('Conteúdo informado não é número');
end;


end;
GOSTEI 0
POSTAR