if not adoquery1.IsEmpty then
begin
tc:=tcombobox.Create(nil);
combobox1.Clear;
adoquery1.First;
while not adoquery1.Eof do
begin
tc.Items.Add(adoquery1.Fields[0].Asstring);
adoquery1.Next;
end;
combobox1:=tc;
end;


出錯:control has no parent window

請問各位高手出錯原因?

You might need to attach this control object to a Form or Window by calling "tc:=tcombobox.Create(form1);"

===================引 用 cnnick 文 章===================
if not adoquery1.IsEmpty then
begin
tc:=tcombobox.Create(nil);
combobox1.Clear;
adoquery1.First;
while not adoquery1.Eof do
begin
tc.Items.Add(adoquery1.Fields[0].Asstring);
adoquery1.Next;
end;
combobox1:=tc;
end;


出錯:control has no parent window

請問各位高手出錯原因?

------
===波士頓夜未眠===
What a wonderful world!!
Jazz up the world with jazz!!
==================

When I am not programming...
you can find me here:
http://www.holy-war.de/EN/World3/bin/?advertiser=63190

操作資料(字串)不要用TComboBox, 請改用 TStringList
最後再顯示結果....

[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var
L: TStringList;
begin
if not AdoQuery1.IsEmpty then
begin
L := TStringList.Create;
try
AdoQuery1.First;
while not AdoQuery1.Eof do
begin
L.Add(AdoQuery1.Fields[0].Asstring);
AdoQuery1.Next;
end;
ComboBox1.Items.Text := L.Text;
finally
FreeAndNil(L);
end;
end;
end;
[/code]

===================引 用 cnnick 文 章===================
if not adoquery1.IsEmpty then
begin
tc:=tcombobox.Create(nil);
combobox1.Clear;
adoquery1.First;
while not adoquery1.Eof do
begin
tc.Items.Add(adoquery1.Fields[0].Asstring);
adoquery1.Next;
end;
combobox1:=tc;
end;


出錯:control has no parent window

請問各位高手出錯原因?

多謝回覆!
問題解決了....thx!!!!!!!!!