关于dbcombobox控件的问题

procedure TForm1.FormCreate(Sender: TObject);
var
q1:tquery;
d1:tdatasource;
begin
q1:=tquery.Create(nil);
q1.DatabaseName:='*';
q1.Close;q1.sql.Clear;
q1.SQL.Add('select .....');
q1.Open;d1:=tdatasource.Create(nil);
d1.DataSet:=q1;dbcombobox1.DataSource:=d1;
dbcombobox1.datafield:='*';
end;
用同样的代码如果换成dbgrid控件是可以显示记录的，为什么用dbcombobox控件在下拉条中却没有记录显示。