各位好﹕ 本人有一問題，我在database裡有一個field儲存著每一張form的名字， 現想做一程式讀取field裡面的資料後自動可以根據名字而做出一張modal form來，我曾經試過用用以下方法去做，但會發生'tform and tcomponents not the same type!'我知tform的ancestors是tcomponents，類型不相同所以出error，但不太明白當中有關原理，請問可否解釋一下？謝謝各位，程式如下    Procedure ... VAR  exefrom:tform begin If Application.FindComponent(FormName) = nil Then     ExeForm:=(TForm(FindComponent('T'+FormName)).Create(Self))   Else    ExeForm:=Application.FindComponent(FormName) ;      With ExeForm Do  < 這裡便出現錯誤 >   Begin     Try       ShowModal;     finally       Free;     End;   End;  end;

-->ExeForm:=(TForm(FindComponent('T' FormName)).Create(Self)) 問題出在這一行!! FindComponent('T' FormName) 結果一定是 nil 就變成了 ExeForm := TForm(nil).Create(Self); ,錯誤就產生了 如果可以改成以下這樣 ExeForm := "該Form的類別(ex.TForm1)".Create(self); 就可以囉 努力不一定成功 , 不努力一定不成功!!

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.