IwDbGrid中Column之动态建立

 <iframe name="google_ads_frame" marginwidth="0" marginheight="0" src="http://pagead2.googlesyndication.com/pagead/ads?client=ca-pub-3528650120430763&amp;dt=1183890684015&amp;lmt=1183890684&amp;format=468x60_as&amp;output=html&amp;correlator=1183890684000&amp;url=http%3A%2F%2Fgmai9999.googlepages.com%2Fhome&amp;ad_type=text_image&amp;ui=rc%3A0&amp;cc=100&amp;flash=9&amp;u_h=768&amp;u_w=1024&amp;u_ah=738&amp;u_aw=1024&amp;u_cd=32&amp;u_tz=480&amp;u_java=true" frameborder="0" width="468" scrolling="no" height="60" allowtransparency="allowtransparency"></iframe> 

procedure TIWForm1.IWButton1Click(Sender: TObject);
var
  clm : TIWDbGridColumn;
begin

  clm := TIWDbGridColumn(IWDBGrid1.Columns.Add);
  clm.Title.Text := '编号';
  clm.DataField := 'ID';

  with ds do
  begin
    Active := false;
    CommandText := 'select ID from UseData ';
    open;
  end;
end; 

环境：

  BDS2006＋Winxp Sp2＋Acess2003

测试通过
<iframe name="google_ads_frame" marginwidth="0" marginheight="0" src="http://pagead2.googlesyndication.com/pagead/ads?client=ca-pub-3528650120430763&amp;dt=1183890684015&amp;lmt=1183890684&amp;format=468x60_as&amp;output=html&amp;correlator=1183890684000&amp;url=http%3A%2F%2Fgmai9999.googlepages.com%2Fhome&amp;ad_type=text_image&amp;ui=rc%3A0&amp;cc=100&amp;flash=9&amp;u_h=768&amp;u_w=1024&amp;u_ah=738&amp;u_aw=1024&amp;u_cd=32&amp;u_tz=480&amp;u_java=true" frameborder="0" width="468" scrolling="no" height="60" allowtransparency="allowtransparency"></iframe>