我的dblistbox加了数据 怎么无法点选？

Question

procedure TForm1.fatherlistClick(Sender: TObject);
beginsite_sql.Close;
site_sql.sql.Clear;
site_sql.SQL.Text:='select * from FS_Site where Folder= (select ID from FS_SiteFolder  where SiteFolder="'+fatherlist.Items.Strings[fatherlist.itemindex]+'")';
site_sql.Open;
sitelist.Items.Clear;
with ds1.DataSet do
begin
  First;
  while Not Eof do
  begin
    sitelist.Items.Add(FieldbyName('SiteName').AsString);
    Next;
  end;
end;
end;
是通过前一个dblistbox 点选得到条件 查询出第二个dblistbox的数据库 然后添加进去的 第一个能点选 第二个不能点选。。

Answer 1

taborder 1
第一个能点的值为0 第二个自动为1的

Answer 2

可以选了～ sitelist.datafield 一定要有个值为什么

Answer 3

楼主是怎么回事呀，我也出现了这样的问题：
我代码：
var
   str:string;
 begin
    adoQuery2.close;
    adoQuery2.sql.clear;
    adoQuery2.sql.text:='select * from SysUser';
    adoQuery2.open;
    while not adoquery2.Eof do
    begin
     dblistbox1.items.add(adoquery2.fieldbyname('UserName').asString);
     adoQuery2.next;
    end end;还要设置什么吗？谢谢~~