DBGridEh如何动态的添加列

Question

我自已添加了几列,可为什么不能在下面的单元格中输输入;
1:如何动态的添加列,
2当一个单元格,一行也可以获得焦点时能输入(指单元格)

Answer 1

procedure TForm2.FormCreate(Sender: TObject);
var
  vCol : TColumn;
begin
  vCol := DBGrid1.Columns.Add;
  vCol.Title.Caption := 'Col1';
  vCol.FieldName := '表的列名1';
  vCol := DBGrid1.Columns.Add;
  vCol.Title.Caption := 'Col2';
    vCol.FieldName := '表的列名2';
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  vCol : TColumnEh;
begin
  vCol := DBGridEh1.Columns.Add ;
  vCol.Title.Caption := 'Col1';
  vCol.FieldName := '表的列名1';
  vCol := DBGridEh1.Columns.Add;
  vCol.Title.Caption := 'Col2';
  vCol.FieldName := '表的列名2';end;DBGRIDEH用这个。