請問各位: 要怎麼用TList開啓Form(MDIChild)??? 主要是想利用TList來存放物件， 然後編輯其它功能。 (1) 首先宣告 open: TList; 接下來在 FormCreate 定義 (2) if not Assigned(Form2) then begin Form2 := TForm2.Create(owner); Open.Add(Form2); end; (3)把Form的名字放在ListBox1 procedure TForm1.ListBox1Click(Sender: TObject); var i,Count: Integer; Str: String; begin Str:=ListBox1.Items[ListBox1.ItemIndex]; Count:=Self.open.Count; for i:=0 to Count-1 do begin if TForm(Self.open.Items[i]).Name=Str then begin TForm(Self.open.Items[i]).Show; end; end; end; 執行後發現: 錯誤訊息為=>cannot create form no MDI forms are currently active.. PS:試過 Normal form, 一切正常. 想請問 MDI form 要怎麼處理?? Thanks Cherry

Remeber to set FormStyle of you main form to fsMDIForm and your mid child form to fsMDIChild.

Hi William: 有的, 我的確是這樣設定的... 不過, 發現一個問題: mid child 若設成fsMDIChild 屬性 mid child 是一個window並不是form 不知道這樣的觀念對不對? =================================== mid child form to fsMDIform -->ok mid child form to fsMDIChild -->ng =================================== Thanks Cherry

Only ONE form can be set as fsMIDForm, and this should be your main form that 'contains' others MDI child form. MDI child forms exist as a 'window' inside the MD main form. Perhaps you want to open normal form instead of MDI form? The FormStyle property of a normal form should be fsNormal.

Hi William: 謝謝你的說明 :) form 原來是這樣子的... 懂了~~ Cherry