請問如何動態建立Form 原本建立Form時使用如下程式 Form1 := TForm1.Create(Application); Form2 := TForm2.Create(Application); . . Form10 := TForm10.Create(Application); 若有10個TForm(Form1,Form2,Form3......Form10)，請問該如何動態建立Form 謝謝！

你的問題有點奇怪耶~讓人家摸不著頭腦~ 你要動態建立十個FORM~就像你上面所寫的一樣啊~ 還是我沒有搞懂你的問題~ -- 聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心 傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心 發表人 - Jasonwong 於 2003/06/17 10:10:05

------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心
傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

在每個 Form Unit 的最後加上

initialization
  RegisterClass(TForm1); // TForm1 改成該 Form 的 Form Class

之後主程式便可不用 uses 那些 unit 直接以字串動態建立 Form 了，如

var i : integer;
    Fm : TForm;
begin
  for i := 1 to 10 do
  begin
    Fm := TFormClass(FindClass('TForm'   IntToStr(i))).Create(Application);
    Fm.xxx := yyy;
    Fm.Show;
  end;
end;

不過這樣就不能 Assign 給 Form1, Form2 等變數了 你也可參考一下 : 態以 Form 的 ClassName (字串) 建立唯一視窗 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=30803 'TForm' IntToStr(i) 才直，最近 K.Top 的 [ code ] 系統有問題 一個 ' 會變四個 發表人 - Justmade 於 2003/06/17 10:23:24

請問如何動態建立Form 原本建立Form時使用如下程式 Form1 := TForm1.Create(Application); Form2 := TForm2.Create(Application); . . Form10 := TForm10.Create(Application); 若有10個TForm(Form1,Form2,Form3......Form10)，請問該如何動態建立Form 抱歉！題意不夠清楚。 問題應該是如何用一廻圈動態建立Form。(因我在程式中放入10個Button，每按1個Button需建立一個TForm) 謝謝！

giga_lai: 我看了半天這個問題應該不算是 "資料庫" 方面有關吧! 請移區討論, 謝謝 ...

------
將問題盡快結案也是一種禮貌!

引言: 在每個 Form Unit 的最後加上

initialization
  RegisterClass(TForm1); // TForm1 改成該 Form 的 Form Class

之後主程式便可不用 uses 那些 unit 直接以字串動態建立 Form 了，如

var i : integer;
    Fm : TForm;
begin
  for i := 1 to 10 do
  begin
    Fm := TFormClass(FindClass('TForm'   IntToStr(i))).Create(Application);
    Fm.xxx := yyy;
    Fm.Show;
  end;
end;

不過這樣就不能 Assign 給 Form1, Form2 等變數了 你也可參考一下 : 態以 Form 的 ClassName (字串) 建立唯一視窗 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=30803 'TForm' IntToStr(i) 才直，最近 K.Top 的 [ code ] 系統有問題 一個 ' 會變四個 發表人 - Justmade 於 2003/06/17 10:23:24

謝謝您的答覆，問題已解決。再請問TDataModule該如何動態建立。謝謝！

原理一樣丫 var i : integer; DM : TDataModule; begin ... DM := TDataModule(TComponentClass(FindClass('TDataModule' IntToStr(i))).Create(Application)); ...