DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: Rebafseken
今日帖子: 2
在线用户: 2
导航: 论坛 -> 论坛精华贴 斑竹:liumazi,iamdream  
作者:
男 tao_wu (wt) ▲▲▲▲▲ -
普通会员
2004/12/9 13:01:02
标题:
delphi7中动态创建窗口问题:cannot create form.NO MDI forms are currently active 浏览:12174
加入我的收藏
楼主: 当我通过验证登陆成功后,创建主MDI窗体,可是在MDI 中M再创建MIDCHILD FORM 时出错,提示信息:
cannot create form.NO MDI forms are currently active

怎样解决????
----------------------------------------------
-
作者:
男 iamdream (银河恒久远,梦想无止境!) ★☆☆☆☆ -
大贡献会员
2004/12/9 13:05:07
1楼: 提示的意思是你的MDI主窗体未处于活动状态,估计和你创建窗体的次序有关,你将相关代码贴出来看看。
----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 偶的生活博客  偶的技术军事博客
作者:
男 swordchang (kevin) ★☆☆☆☆ -
盒子活跃会员
2005/1/11 16:34:13
2楼: 我也遇到过同样的问题,但是还是没有解决!
----------------------------------------------
kevin
作者:
男 harwk (安腾) ★☆☆☆☆ -
盒子活跃会员
2005/1/12 10:02:06
3楼: 应该是你没有设置MDI的主窗口,
在Form1.formstyle := fsMDIForm有设置
----------------------------------------------
Shift your life
作者:
男 tao_wu (wt) ▲▲▲▲▲ -
普通会员
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;
----------------------------------------------
-
作者:
男 tao_wu (wt) ▲▲▲▲▲ -
普通会员
2005/1/21 8:45:29
5楼: 还是报错!怎么处理。
----------------------------------------------
-
作者:
男 c_h_e_n_gao (baobao) ▲▲▲▲▲ -
普通会员
2005/3/11 10:00:32
6楼: 各位大侠请帮帮小弟 delphi中怎么将buffer中的内容转变字符型
----------------------------------------------
baobao
作者:
男 iamdream (银河恒久远,梦想无止境!) ★☆☆☆☆ -
大贡献会员
2005/3/11 11:41:46
7楼: 你的登陆窗口也是用Application.CreateForm创建的吧?而且在主窗体之前?这样不行的,Delphi会把第一个用Application.CreateForm创建的窗口作为主窗口的;
而MDI主窗口必须为整个程序的主窗口才行。
----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 偶的生活博客  偶的技术军事博客
作者:
女 yanzipeng (燕子) ▲▲▲▲▲ -
普通会员
2006/8/25 17:03:30
8楼: 有没有把子窗体从auto-create form 拖到available form中啊,在options 中
----------------------------------------------
学习ing
作者:
男 delphi_2008 (初学delphi) ▲▲▲▲▲ -
普通会员
2006/9/15 13:19:43
9楼: 回7楼:
1:如果将mdi主窗体设为delphi第一个启动的窗体的话,那在MDI主窗体前,要有
欢迎界面的窗体,用户登陆的窗体,两个窗体怎么办啊????
2:是否一定要在MDI主窗体的onshow事件(注:在oncreate事件中启动那两个窗体会报错!)启动那两个窗体.有没有其它的办法啊???
请高手们帮帮忙!!!!
----------------------------------------------
-
作者:
男 bluebar2006 (阿呆) ▲▲▲▲▲ -
普通会员
2006/9/15 15:08:15
10楼: 好像只有在Mid主窗口的Activate中启动那个登陆窗口.
if not Assigned(form2) then
begin
  form2:=Tform2.Create(nil);
end;
  form2.Show;
end;
----------------------------------------------
-
作者:
男 delphi_2008 (初学delphi) ▲▲▲▲▲ -
普通会员
2006/9/15 17:29:46
11楼: 那样做有些麻烦,其它的开发工具,不需要这样做,有没有其它更快捷的方法??
----------------------------------------------
-
作者:
女 yanzipeng (燕子) ▲▲▲▲▲ -
普通会员
2006/9/15 18:00:59
12楼: 那不改变登录窗体的任何属性,第一个显示的还是主窗体,但只是把登录界面隐藏起来,点击时才显示在主窗体,这样可以吗?
----------------------------------------------
学习ing
作者:
男 bluebar2006 (阿呆) ▲▲▲▲▲ -
普通会员
2006/9/15 18:41:02
13楼:
那不改变登录窗体的任何属性,第一个显示的还是主窗体,但只是把登录界面隐藏起来,点击时才显示在主窗体,这样可以吗?



这样肯定不行,还是会报错啊!
----------------------------------------------
-
作者:
女 yanzipeng (燕子) ▲▲▲▲▲ -
普通会员
2006/9/18 17:49:39
14楼: 不会吧,我的毕业设计就是这样出来的,没有错
----------------------------------------------
学习ing
作者:
女 yanzipeng (燕子) ▲▲▲▲▲ -
普通会员
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
作者:
男 fanr520 (追梦人) ★☆☆☆☆ -
盒子活跃会员
2007/11/16 9:20:55
16楼: 可以工程代码是创建第一个登陆窗口,然后再建主窗口
----------------------------------------------
为人民服务……
作者:
男 txx007 (txx007) ★☆☆☆☆ -
注册会员
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
作者:
男 kinneng (kinneng) ★☆☆☆☆ -
盒子活跃会员
2008/11/12 1:51:24
18楼: 同意楼上的
----------------------------------------------
声明:本人不在论坛询问任何编程问题,请不要将我的帖子当成问题来回答。炒股一天,编程三年,不浪费时间了。 经常在外面,没空,不要找我..
作者:
男 baidu006 (chong) ▲▲▲△△ -
注册会员
2011/6/23 17:17:14
20楼:
  深圳龙岗搬家公司-深圳龙岗正规搬家公司-电话 28837358  深圳龙岗搬家公司是经深圳运输局批准和工商局注册成立的一家具有独立法人资格的专业化、规模化的正规搬家公司。本公司已拥有大小不等的专用搬迁车二十八台, 自卸吊5吨至10吨、进口塔吊8吨至50吨,叉车3吨、5吨等等重型吊装、移位设备,其搬迁队、拆装工人、吊装师傅、清洁员工都是经过专业化训练,持证上岗的与公司签有正式劳动合同的优秀的有责任心的职员。他们能细致、熟练的掌握各自的专长,以过硬的技术、优质的服务、满意的质量来回报各位新老客户.公司网址 www.szhrz8.com
 深圳龙岗搬家公司 深圳南山搬家公司
 深圳福田搬家公司 深圳罗湖搬家公司 
 深圳龙华搬家公司 深圳宝安搬家公司
 深圳罗湖搬家公司 深圳福田搬家公司 
 深圳南山搬家公司 深圳搬家公司 
 深圳龙岗搬家公司 深圳宝安搬家公司  
 深圳空调拆装 深圳空调移机
 深圳空调回收 深圳盐田搬家公司
 深圳旧货回收
----------------------------------------------
深圳龙岗搬家公司 深圳南山搬家公司
 深圳福田搬家公司 深圳罗湖搬家公司
作者:
女 seowhy123456 (seowhy123456) ▲▲▲△△ -
禁用账号
2011/7/1 23:48:25
21楼: ……
被禁用帐号,帖子内容自动屏蔽!
……

----------------------------------------------
发布广告,禁用帐号!
作者:
女 seowhy123456 (seowhy123456) ▲▲▲△△ -
禁用账号
2011/7/1 23:54:00
22楼: ……
被禁用帐号,帖子内容自动屏蔽!
……

----------------------------------------------
发布广告,禁用帐号!
作者:
女 seowhy123456 (seowhy123456) ▲▲▲△△ -
禁用账号
2011/7/7 23:52:19
23楼: ……
被禁用帐号,帖子内容自动屏蔽!
……

----------------------------------------------
发布广告,禁用帐号!
作者:
男 hrzbq (红日子) ▲▲△△△ -
注册会员
2013/7/11 9:51:02
24楼: 好日子深圳搬家公司成立2006年提供:深圳搬家,深圳搬厂,深圳吊装,深圳搬钢琴,深圳搬写字楼等,深圳好日子搬家公司是工商注册的一家深圳正规搬家公司。电话25425182 http://www.sz-hrzbj.cn
深圳搬家公司
深圳搬厂公司
深圳福田搬家公司
深圳罗湖搬家公司
深圳南山搬家公司
深圳宝安搬家公司
深圳龙华搬家公司
深圳龙岗搬家公司
深圳布吉搬家公司
深圳盐田搬家公司
深圳吊车公司  
深圳长途搬家公司


深圳空调维修
深圳海尔空调维修
深圳LG空调维修
深圳新科空调维修
深圳志高空调维修
深圳三菱空调维修
深圳格力空调维修
深圳松下空调维修
深圳奥克斯空调维修
深圳美的空调维修
深圳空调清洗
----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v2.1 版权所有 页面执行31.25毫秒 RSS