不好意思，多謝你多次的解答，我是明白你的意思，但始終做不到出來，假設我這樣 A FORM裡已經use b,c form b:='fm_b_form' c:='Fm_c_From' 假設功能名稱叫BUILDForm在A form裡 - BUILDFORM(b); 我buildform功能裡有一個接數參數const formname，我不明白的地方是我怎 樣可以用b這個const來建立，因每次傳過來的字串都不同，那我是否B.CREATE(SELF)，我跟你的例子做但每次也ERROR-UNDELCARE 'xxx' FORM 可否給我一個完全的例子呢? 多謝幫忙，萬分謝謝!

回去看了你的發問.有點看不太懂! 你的疑問是"你不知道如何由字串建立該實體嗎?"    若是請試試如下代碼    

 
procedure TForm1.Button1Click(Sender: TObject);
type classform = class of Tform;
var a: classform;
    frm  :Tform;
begin
  RegisterClasses([Tform2,Tform3]);      a := classform(findclass('TForm2'));
  frm  :=  a.create(self);
  frm.showmodal;
  frm.free;      a := classform(findclass('TForm3'));
  frm  :=  a.create(self);
  frm.showmodal;
  frm.free;
end;

------
熊的學習 http://huwk.blogspot.com

請注意您的發表文章主題, 需要是有意義, 可大概描述內容的, 且不要一直開新主題, 同樣問題請在同一主題內回覆發問即可, 這樣可以避免浪費資源, 也可以在搜尋資料時, 較益找到相關的討論, 謝謝您的合作.

------
人生有夢，逐夢而行
人若為善，福雖未至，禍已遠離
人若為惡，禍雖未至，福已遠離
http://www.taconet.com.tw/jieshu/

提問者您好:


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


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


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

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