有三个窗体:
登陆窗体 Login
主窗体 MDIForm1
子窗体 MDIForm2现在运行的顺序是: 1,先打开登陆窗体 Login;
2,按登陆窗体的“确定”后找开主窗体,同时打开主窗体的子窗体面是如何实现呢?下面是我的代码:
Project里的代码:
Application.Initialize;
login1:=Tlogin1.create(application); //F_login.visible:=false
if login1.ShowModal=mrOK then
begin
Application.CreateForm(TForm1, form1);
login1.Free;
Application.Run;
end
else
begin
login1.Free;
application.Terminate;
end;登陆窗体的确定代码:
ModalResult := mrOK;
主窗体From1的OnCreate代码 if Form2 = nil then begin
Form2 := TForm2.Create(form2);
end;
Form2.Show;可是运行上面主窗体的代码出现以下错误:
[red]"Cannot create form .No MDI forms are currently active"[/red]也就是在主窗体(MDI窗体)显示同时显示子窗体,出错~~哪位高手能不能提供这三个窗体运行过程的具体代码?谢谢~~
登陆窗体 Login
主窗体 MDIForm1
子窗体 MDIForm2现在运行的顺序是: 1,先打开登陆窗体 Login;
2,按登陆窗体的“确定”后找开主窗体,同时打开主窗体的子窗体面是如何实现呢?下面是我的代码:
Project里的代码:
Application.Initialize;
login1:=Tlogin1.create(application); //F_login.visible:=false
if login1.ShowModal=mrOK then
begin
Application.CreateForm(TForm1, form1);
login1.Free;
Application.Run;
end
else
begin
login1.Free;
application.Terminate;
end;登陆窗体的确定代码:
ModalResult := mrOK;
主窗体From1的OnCreate代码 if Form2 = nil then begin
Form2 := TForm2.Create(form2);
end;
Form2.Show;可是运行上面主窗体的代码出现以下错误:
[red]"Cannot create form .No MDI forms are currently active"[/red]也就是在主窗体(MDI窗体)显示同时显示子窗体,出错~~哪位高手能不能提供这三个窗体运行过程的具体代码?谢谢~~
解决方案 »
- 跪求 Delphi(fastreport)高手解决主数据取数问题
- 2个DBgrid + 1个删除按钮,如何判断,在点击按钮之前焦点是在哪个DBgrid中,以便针对不同的dataset做处理.
- 请教高高手:使用SQL Server时,DELPHI的DBGRID的垂直滚动条问题!
- 在delphi中如何播放FlashMx制作的动画。ShockWaveFlash(v1.0)控件好象没办法。(急,在线)
- Delphi中有没有象VC那样的模态、非模态对话框
- 救命啊!如何让数据集中的字段出现在FAST REPORT 的插入数据字段的窗口中啊
- 韩文插入数据库问题
- 有钱大家一起挣,一起花!
- 关于数据库链接的问题!急!
- 小写金额转换
- 如何得到所有活动的sqlserver服务器名
- 走过,路过,不要错过!!!关于软件设计中界面功能安排与软件(业务)逻辑设计的讨论,请大侠们指教。
begin
Form2 := TForm2.Create(form2);
Form2.Show;
end;
Application.CreateForm(TForm1, form1);
Application.CreateForm(TForm2, form2);
或者在Form1的OnActive中Create Form2不要在 Form1 的OnCreate中创建Form2
雪夜兄厉害~~这个问题问了半个月,可能以前表达不太明白,所以到今天才得到解决,谢谢~~