我设立了主窗口和子窗口
主窗口中这样设的frm:= TFrm.Create(frm_main);
DEfaultMonitor:=dmMainForm
FormStyle:=fsMDIForm
子窗口中这么设
DEfaultMonitor:dmActiveForm
FormStyle:=fsMDIChild
FormClose中:
frm.DestroyWindowHandle();
执行是不报错,但执行完以后系统报错:Cannot Create
Form.No MDI Forms are Currently Active这是为什么??要怎么处理??
主窗口中这样设的frm:= TFrm.Create(frm_main);
DEfaultMonitor:=dmMainForm
FormStyle:=fsMDIForm
子窗口中这么设
DEfaultMonitor:dmActiveForm
FormStyle:=fsMDIChild
FormClose中:
frm.DestroyWindowHandle();
执行是不报错,但执行完以后系统报错:Cannot Create
Form.No MDI Forms are Currently Active这是为什么??要怎么处理??
解决方案 »
- StrToInt64(EDIT1.TEXT)结果数值变了,什么原因
- 暂与大家分享,一个IT的摆摊之想(请勿见笑)
- 如何监视串口的数据?
- 请教Delphi 中应用Excel 问题!
- Error] tkzb01.pas(124): Statement expected but 'PROCEDURE' found 是什么意思??在线??
- 一个很简单的问题但是我解决不了?很急??在线?
- 一个关于数据模块和窗体的问题,朋友近来帮帮我~
- 可以在客户端程序中动态改变AppServer上的TDataSet的字段的ProviderFlags吗?
- 怎样把image控件的图片直接打印出来
- 难道delphi真的不如c++builder吗?!!!
- BOF或者EOF错误?急,在线等待。
- 请问如何获取硬盘的序列号?
Action:= caFree;
子窗口Create时要指时主窗口
Childfrm := TChildfrm.Create(Mainfrm);
Childfrm.show();
FormCreate:
frm:= TFrm.Create(frm_main);
Application.Initialize;
Application.Title := 'XX';
Application.CreateForm(Tfrm, frm); //这个要先写,把Application.MainForm设置为frm
...
Application.CreateForm(Tfrm1, frm1);
Application.CreateForm(Tfrm2, frm2);
...
然后:project->Options->Forms页->把子窗体移到右边;
在按钮的事件里:
var childFor:TFormChild;
begin
childFor:=TFormChild.Create(Appcation);
end;
试试吧!
但又有一个问题:
我在子窗口的FormCreate函数中写了一句:
Childfrm.WindowState:=wsMaximized;
又开始系统报错,但是还是可以运行,为什么?