运行时生成TDBedit，该怎么做？感谢大家！

Question

我想通过查询数据库中的一些表的字段名来动态的在相应的form上生成TDBedit，该怎么做？

Answer 1

var t:TDBEdit;
begin
    t:=TDBEdit.Create(self);
    t.Parent:=self;
    t.DataField:='pp';
    t.DataSource:=datasource1;

Answer 2

var DBEdit1 : TDBEdit....DBEdit1 := TDBEdit.Create(Self);
DBEdit1.DataSource := DataSource;
DBEdit1.DataField  := DataSet.FieldByName('FieldName')

Answer 3

var
  dbedit:Tdbedit;
begin
  dbedit:=Tdbedit.Create(nil);
  dbedit.Parent:=form1;
  dbedit.SetBounds(位置);
  DBEdit1.DataSource := DataSource;
  DBEdit1.DataField  := DataSet.FieldByName('FieldName');
end;