如何在程中动态创建控件？

Question

var
 atTable:TADOTable;
begin
  atTable:=TADOTable.Create(nil);
  atTable.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=YourDataBase;Data Source=Your IP Address'
  atTable.Name:='Product';
  atTable.Active:=true;
  AtTable.Active:=false;
  //Your code here
  atTable.free;
end;要注意的是，许多控件必须指定其Parent属性，如Label.

Answer 1

来晚了，还要插一下：最重要的是Parent属性。
可视话控件的Parent属性必须指向TwinControl子类的控件，非可视话的就没必要指定具体的Parent了吧，只要Parent:=Form1就行了呀。