| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/1/6 10:10:52 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 我在写MDI时发现同一处子窗口能重复出现，怎么解决呀？ 我写的函数如下，可就是解决不了，求助 function OpenForm(WForm:TForm):Boolean; var i:Integer; FormExist:Boolean; begin if(WForm=nil) then begin Result:=False; end; for i:=0 to Screen.FormCount do begin if(Screen.Forms[i].ClassType=WForm.ClassType) then Break; FormExist:=True; end; if(FormExist=False) then Result :=FormExist; if(WForm.WindowState=wsMinimized) then begin ShowWindow(WForm.Handle,SW_SHOWNORMAL); end else ShowWindow(WForm.Handle,SW_SHOWNA); if(not WForm.Visible) then WForm.Visible:=True; WForm.BringToFront ; WForm.SetFocus; Result := True; end; //这是函数调用 procedure TdmAnFina.DataModuleCreate(Sender: TObject); begin if(OpenForm(frLogin)=False)then frLogin := tfrLogin.Create(Application); frLogin.Show; end; ---------------------------------------------- Shift your life |
|||||
| 作者： |
|
2004/1/6 10:47:14 | ||||
| 1楼： | 可以用一個標志來控制 if not show_flag then begin form2:=Tform2.Create(self); form2.Show; end; form2.onshow中設置 show_flag:=true; form2.onclose中 show_flag:=false; form1.onshow中 show_flag:=false; ---------------------------------------------- - |
|||||
| 作者： |
|
2004/1/6 14:20:10 | ||||
| 2楼： | TChildForm = class(TForm) .....end; var ChildForm: TChildForm; procedure ShowChildForm; implementation procedure ShowChildForm; begin if not Assigned(ChildForm) then ChildForm := TChildForm.Create(MainForm); ChildForm.Show; end; ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2004/1/6 14:50:09 | ||||
| 3楼： | if not Assigned(ChildForm) then ChildForm := TChildForm.Create(MainForm); ChildForm.Show; 好象不行,如果我關閉childform﹐再創建就不行了 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/1/6 14:58:00 | ||||
| 4楼： | 在ChildForm的OnDestroy里加句 ChildForm := nil就行了 ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2004/1/6 14:58:47 | ||||
| 3楼： | to 小二黑 兄： 我也事向你那样控制的，但我还希望在第二次点击菜单时， 如果 form2 处于非活动状态 则 令 其 处于活动状态； ---------------------------------------------- -简单最美！ |
|||||
| 作者： |
|
2004/1/6 15:01:25 | ||||
| 5楼： | Show的时候就Active了 ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2004/1/6 15:03:14 | ||||
| 5楼： | 感谢，但是好像没有解决问题呀，和3楼的一样，你所说的标志挂在MAINForm中还是在子窗体中？ ---------------------------------------------- Shift your life |
|||||
| 作者： |
|
2004/1/6 15:20:30 | ||||
| 6楼： | 子窗体 ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2004/1/6 15:40:11 | ||||
| 7楼： | 按sephil的方法可以解決 procedure TForm1.Button1Click(Sender: TObject); begin if not assigned(form2) then form2:=Tform2.Create(self); form2.Show; end; 在project->options->將form2移到右框 procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); begin action:=cafree; end; procedure TForm2.FormDestroy(Sender: TObject); begin form2:=nil; end; ---------------------------------------------- - |
|||||
| 作者： |
|
2004/1/6 15:53:56 | ||||
| 8楼： | sephil哥的方法的确可以我试过了. ---------------------------------------------- -你的一句话，会令我少走许多弯路，衷心的多谢指点。 |
|||||
| 作者： |
|
2004/1/6 16:40:24 | ||||
| 9楼： | :) ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2004/1/18 9:56:22 | ||||
| 10楼： | 一个更简单的解决办法： if(frLogin=nil) then begin frLogin=TfrLogin.Create(self); end; frLogin.Show; 因为窗体本身就是一个指针；所以判断是不是nil就可以了，不过在子窗体关闭时要将窗体指针归零：frLogin:=nil;不然会出错的 procedure TvfrLogin.FormClose(Sender: TObject; var Action: TCloseAction); begin action:=cafree; frLogin:=nil; end; ---------------------------------------------- Shift your life |
|||||
| 作者： |
|
2004/1/18 19:35:16 | ||||
| 11楼： | 楼上和我的其实是一样的 楼上的你仔细看看 ：） ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 信息 |
| 登陆以后才能回复 |
