我用了一個Form一個DataModule和一個放物件的UnitObjects(Unit) Form和UnitObjects都會Use DataModule Form在On Create的時候會用資料庫的資料將Form上的Cob填滿資料 With dm do begin qryClient.SQL.Clear; qryClient.SQL.Add('Select NAME From L_XFEE1 Join ODRMDICT On OT_CODN=CODE'); qryClient.Open; while Not qryClient.Eof do begin frmFormulary.cobSelector.Items.Add(qryClient.FieldByName('NAME').AsString); qryClient.Next; end; end; 這一段程式碼是放在UnitObjects中，現在因為資料量較大導致Form要出現都要等一下，我想用另一個Thread來跑這一段程式，但是試不出來，能不能指導我一下。 感謝這個網站

------
Signed by Edward Chen

Hi Edward Chen,    這裡有篇站長大作，你參考並加以修改試作看看，有問題再一起討論吧，加油！    http://delphi.ktop.com.tw/topic.php?TOPIC_ID=18171 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

感謝回應，我有照著做了，但是出了問題 因為我的程式碼中含有控制From上的COB Control 在Form開起來時這個COB就不見了，等到關閉視窗時就出了這個 EOSError:System Error Code 1400 感謝這個網站

------
Signed by Edward Chen

Hi Edward Chen,    方便的話，可否將你的作品 Post 上來，方便大家一起幫你看？    若不方便的話，請將 QueryTest.Execute; 內的程式碼 Post 上 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

Edward Chen 你好: 參考看看: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=52502 另外, 建議你延後填滿 ComboBox.Items 的時機, 如 Form.OnShow Event... 發表人 - Mickey 於 2004/08/13 22:08:33

1.我把之前所提的那一段程式碼放到另一個Unit裡 2.放在一個Thread的Excute方法裡 3.結果Cob還是不出來，但是Form的其他部份都可以正常操作，唯獨cob不出來 4.於是將程式結束，結果就出現EOS…的錯誤了 感謝這個網站

------
Signed by Edward Chen