謝謝

應該是讀取 .dpr file 中 {} 包住之文字...如 :

program Project1;    uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3};

之 Form1, Form2 及 Form3 去除 Auto-Create Form Application.CreateForm(TForm1, Form1); ... 發表人 - Mickey 於 2003/10/21 20:20:02

配合 Mickey 大大的想法:

var
  i: integer;
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  for i := 0 to Application.ComponentCount -1 do
    if Application.Components[i] is TForm then begin
      if Assigned(Application.Components[i]) then
        ShowMessage((Application.Components[i] as TForm).Name);
    end;
  Application.Run;
end.

--- 歡迎光臨 KTop 研究院

引言:

var
  i: integer;
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  for i := 0 to Application.ComponentCount -1 do
    if Application.Components[i] is TForm then begin
      if Assigned(Application.Components[i]) then
        ShowMessage((Application.Components[i] as TForm).Name);
    end;
  Application.Run;
end.

照 hagar 兄的看法, 這需要是 1. Run Time. 2. 各個 Form 都 Auto-Create. 3. 各個 Form 的 owner 都是 Application.