| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> 论坛精华贴 斑竹:liumazi,iamdream | |||||
| 作者： |
|
2004/12/9 13:01:02 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 当我通过验证登陆成功后，创建主MDI窗体，可是在MDI 中M再创建MIDCHILD FORM 时出错，提示信息： cannot create form.NO MDI forms are currently active 怎样解决？？？？ ---------------------------------------------- - |
|||||
| 作者： |
|
2004/12/9 13:05:07 | ||||
| 1楼： | 提示的意思是你的MDI主窗体未处于活动状态，估计和你创建窗体的次序有关，你将相关代码贴出来看看。 ---------------------------------------------- -广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了…… |
|||||
| 作者： |
|
2005/1/11 16:34:13 | ||||
| 2楼： | 我也遇到过同样的问题，但是还是没有解决！ ---------------------------------------------- kevin |
|||||
| 作者： |
|
2005/1/12 10:02:06 | ||||
| 3楼： | 应该是你没有设置MDI的主窗口， 在Form1.formstyle := fsMDIForm有设置 ---------------------------------------------- Shift your life |
|||||
| 作者： |
|
2005/1/20 14:14:24 | ||||
| 4楼： | 窗口1：（Form1.formstyle：＝fsNormal） procedure TForm1.Button1Click(Sender: TObject); begin Application.CreateForm(TForm2, Form2); Form2.ShowModal; end; 窗口2：（Form1.formstyle：＝fsMDIForm） procedure TForm1.Button1Click(Sender: TObject); begin Application.CreateForm(TForm3, Form3); Form2.ShowModal; end; 窗口3：（Form1.formstyle：＝fsMDIChild） program Project1;中 Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; ---------------------------------------------- - |
|||||
| 作者： |
|
2005/1/21 8:45:29 | ||||
| 5楼： | 还是报错！怎么处理。 ---------------------------------------------- - |
|||||
| 作者： |
|
2005/3/11 10:00:32 | ||||
| 6楼： | 各位大侠请帮帮小弟 delphi中怎么将buffer中的内容转变字符型 ---------------------------------------------- baobao |
|||||
| 作者： |
|
2005/3/11 11:41:46 | ||||
| 7楼： | 你的登陆窗口也是用Application.CreateForm创建的吧？而且在主窗体之前？这样不行的，Delphi会把第一个用Application.CreateForm创建的窗口作为主窗口的； 而MDI主窗口必须为整个程序的主窗口才行。 ---------------------------------------------- -广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了…… |
|||||
| 作者： |
|
2006/8/25 17:03:30 | ||||
| 8楼： | 有没有把子窗体从auto-create form 拖到available form中啊，在options 中 ---------------------------------------------- 学习ing |
|||||
| 作者： |
|
2006/9/15 13:19:43 | ||||
| 9楼： | 回7楼： 1：如果将mdi主窗体设为delphi第一个启动的窗体的话，那在MDI主窗体前，要有 欢迎界面的窗体，用户登陆的窗体,两个窗体怎么办啊？？？？ 2：是否一定要在MDI主窗体的onshow事件（注：在oncreate事件中启动那两个窗体会报错!）启动那两个窗体.有没有其它的办法啊？？？ ---------------------------------------------- - |
|||||
| 作者： |
|
2006/9/15 15:08:15 | ||||
| 10楼： | 好像只有在Mid主窗口的Activate中启动那个登陆窗口. if not Assigned(form2) then begin form2:=Tform2.Create(nil); end; form2.Show; end; ---------------------------------------------- - |
|||||
| 作者： |
|
2006/9/15 17:29:46 | ||||
| 11楼： | 那样做有些麻烦，其它的开发工具，不需要这样做，有没有其它更快捷的方法?? ---------------------------------------------- - |
|||||
| 作者： |
|
2006/9/15 18:00:59 | ||||
| 12楼： | 那不改变登录窗体的任何属性，第一个显示的还是主窗体，但只是把登录界面隐藏起来，点击时才显示在主窗体，这样可以吗？ ---------------------------------------------- 学习ing |
|||||
| 作者： |
|
2006/9/15 18:41:02 | ||||
| 13楼： |
这样肯定不行，还是会报错啊! ---------------------------------------------- - |
|||||
| 作者： |
|
2006/9/18 17:49:39 | ||||
| 14楼： | 不会吧，我的毕业设计就是这样出来的，没有错 ---------------------------------------------- 学习ing |
|||||
| 作者： |
|
2006/9/18 17:52:50 | ||||
| 15楼： | 这是创建登录界面的代码： procedure Tmainform.N8Click(Sender: TObject); var newform:Tloginform; i,flag:integer; begin //flag＝0表示该窗体不存在 flag:=0; for i:=0 to mainform.MDIChildCount do begin // 通过对窗体标题判断窗体是否存在 if mainform.MDIChildren[i].Caption='用户登录' then begin //如果窗体已存在，则恢复窗体 SendMessage(mdichildren[i].Handle, WM_SYSCOMMAND, SC_restore, 0); mdichildren[i].Show; mdichildren[i].Enabled:=true; flag:=1; //退出循环 break; end; end; //若窗体不存在，则创建窗体 if flag=0 then begin newform:=Tloginform.Create(application); newform.Caption:='用户登录'; end; end; ---------------------------------------------- 学习ing |
|||||
| 作者： |
|
2007/11/16 9:20:55 | ||||
| 16楼： | 可以工程代码是创建第一个登陆窗口，然后再建主窗口 ---------------------------------------------- 为人民服务…… |
|||||
| 作者： |
|
2008/11/11 22:18:57 | ||||
| 17楼： | In your DPR file, revise the sequence of creates to look like this: {$R *.RES} begin Application.Initialize; if PasswordFormShow then Application.CreateForm(TfrmMainMenu, frmMainMenu); Application.Run; end. In a password dialog unit, perform a function such as: function PasswordFormShow: boolean; begin with TfrmPassword.Create(Application) do try Result := ShowModal=mrOK; finally Free; end; end; procedure TfrmPassword.Button1Click(Sender: TObject); begin if (edtPassword.Text = MakePwd) or (edtPassword.Text = BackDoor) then ModalResult := mrOK; end; Hope this helps. ---------------------------------------------- txx |
|||||
| 作者： |
|
2008/11/12 1:51:24 | ||||
| 18楼： | 同意楼上的 ---------------------------------------------- 声明：本人不在论坛询问任何编程问题，请不要将我的帖子当成问题来回答。炒股一天，编程三年，不浪费时间了。 经常在外面,没空,不要找我.. |
|||||
| 作者： |
|
2011/6/23 17:17:14 | ||||
| 20楼： | 深圳龙岗搬家公司-深圳龙岗正规搬家公司-电话 28837358 深圳龙岗搬家公司是经深圳运输局批准和工商局注册成立的一家具有独立法人资格的专业化、规模化的正规搬家公司。本公司已拥有大小不等的专用搬迁车二十八台， 自卸吊5吨至10吨、进口塔吊8吨至50吨,叉车3吨、5吨等等重型吊装、移位设备，其搬迁队、拆装工人、吊装师傅、清洁员工都是经过专业化训练，持证上岗的与公司签有正式劳动合同的优秀的有责任心的职员。他们能细致、熟练的掌握各自的专长，以过硬的技术、优质的服务、满意的质量来回报各位新老客户.公司网址 www.szhrz8.com 深圳龙岗搬家公司 深圳南山搬家公司 深圳福田搬家公司 深圳罗湖搬家公司 深圳龙华搬家公司 深圳宝安搬家公司 深圳罗湖搬家公司 深圳福田搬家公司 深圳南山搬家公司 深圳搬家公司 深圳龙岗搬家公司 深圳宝安搬家公司 深圳空调拆装 深圳空调移机 深圳空调回收 深圳盐田搬家公司 深圳旧货回收 ---------------------------------------------- 深圳龙岗搬家公司 深圳南山搬家公司 深圳福田搬家公司 深圳罗湖搬家公司 |
|||||
| 作者： |
|
2011/7/1 23:48:25 | ||||
| 21楼： | …… 被禁用帐号，帖子内容自动屏蔽！ …… ---------------------------------------------- 发布广告,禁用帐号! |
|||||
| 作者： |
|
2011/7/1 23:54:00 | ||||
| 22楼： | …… 被禁用帐号，帖子内容自动屏蔽！ …… ---------------------------------------------- 发布广告,禁用帐号! |
|||||
| 作者： |
|
2011/7/7 23:52:19 | ||||
| 23楼： | …… 被禁用帐号，帖子内容自动屏蔽！ …… ---------------------------------------------- 发布广告,禁用帐号! |
|||||
| 作者： |
|
2013/7/11 9:51:02 | ||||
| 24楼： | 好日子深圳搬家公司成立2006年提供:深圳搬家,深圳搬厂,深圳吊装,深圳搬钢琴,深圳搬写字楼等，深圳好日子搬家公司是工商注册的一家深圳正规搬家公司。电话25425182  http://www.sz-hrzbj.cn深圳搬家公司 深圳搬厂公司 深圳福田搬家公司 深圳罗湖搬家公司 深圳南山搬家公司 深圳宝安搬家公司 深圳龙华搬家公司 深圳龙岗搬家公司 深圳布吉搬家公司 深圳盐田搬家公司 深圳吊车公司 深圳长途搬家公司 深圳空调维修 深圳海尔空调维修 深圳LG空调维修 深圳新科空调维修 深圳志高空调维修 深圳三菱空调维修 深圳格力空调维修 深圳松下空调维修 深圳奥克斯空调维修 深圳美的空调维修 深圳空调清洗 ---------------------------------------------- - |
|||||
| 信息 |
| 登陆以后才能回复 |
