請教各位前輩： 以下是Delphi對相同的MDI子視窗只可建立一個的程式碼，有哪位前輩可將它轉成BCB程式碼，小弟對BCB不熟，試了好久試不出來，請各位前輩幫忙。謝謝! procedure OpenOneMDIForm(FormClass: TFormClass; var fm; AOwner: TComponent); var i: integer; Child: TForm; begin for i := 0 to Screen.FormCount - 1 do if Screen.Forms[i].ClassType = FormClass then begin Child := Screen.Forms[i]; if Child.WindowState = wsMinimized then ShowWindow(Child.handle, SW_SHOWNORMAL) else ShowWindow(Child.handle, SW_SHOWNA); if (not Child.Visible) then Child.Visible := True; Child.BringToFront; Child.Setfocus; TForm(fm) := Child; exit; end; Child := TForm(FormClass.NewInstance); TForm(fm) := Child; Child.Create(AOwner); ShowWindow(Child.handle, SW_SHOWNORMAL) end;