delphi中不用MDI可不可以建立子窗体？

只用可以和不可以的都会无视 请详细说明 如果有用会加分

用可以或者可以都无视？ 那我告诉你也许可以！ ^_^ 加分吧

////先定义一个函数 private function findform(caption: string): bool; { private declarations } public { public declarations } end; var main: tmain; implementation {$r *.dfm} //-----------通过用户定义的函数，判断窗体是否已存在-------------------- function tmain.findform(caption: string): bool; var i:integer; begin //result:=false;//防止出现函数返回值没有定义的警告 result:=true;//防止出现函数返回值没有定义的警告 for i:=0 to main.mdichildcount do begin // 通过对窗体标题判断窗体是否存在 if main.mdichildren[i].caption=caption then begin //如果窗体已存在，则恢复窗体，并返回true sendmessage(mdichildren[i].handle, wm_syscommand, sc_restore, 0); mdichildren[i].enabled:=true; mdichildren[i].show; mdichildren[i].setfocus; result:=true; break; end else //如窗体不存在，则返回false，程序将创建窗体 result:=false; end end; ////然后打开mdi子窗体，我合理是caozuorenyuan //-------------打开操作人员设置窗体---------- procedure tmain.n2click(sender: tobject); var newform:tcaozuorenyuan; begin if findform('操作人员设置')=false then begin newform:=tcaozuorenyuan.create(application); newform.caption:='操作人员设置'; end; end;