郁闷啊,但是我又不得不这样做,遇到“cannot create form.no mdi forms are currently active”这个错误
解决方案 »
- 我是一个女孩子,刚开始开始学编程,但感觉很迷茫···
- 动态生成MainMenu1的部分item,以及怎么触发这些item的事件?
- 怎样让ADOQuery1.next 时 不移动记录指针 也就是保持记录指针不变
- 高分请求三角形的第三点坐标。已知两点做标和一条边的长,
- 发放我的一个 DLL 文件,有一个用来压缩的函数,用 vclzip 做成。顺便提及个问题
- 怎麽拆分一個字段。。。。。。。大家快進來幫忙呀!
- [转帖]深圳柴刀匪猖獗 砍手脚抢手机
- 请多关照,问题挺多的,高手请进(我是新手,分不多,请见谅)
- 如何自己调出下载对话框的打开?
- ????????????????????????
- Delphi7下单线程中如何并发调用1个过程?如用线程池,如何操作及注意事项?
- 请问有没有人知道D7怎么接收SQL Server返回的Table?
var
i:Integer ;
pHandle:^THandle ;
begin
pHandle :[email protected]; //进行ClientHandle的转移
pHandle^:=Self.ClientHandle ;
for i:=0 to Self.MDIChildCount -1 do
begin
if (Self.MDIChildren[i] is Tfrm_digital) then
begin
Self.MDIChildren[i].BringToFront ;
Self.MDIChildren[i].SetFocus ;
Exit ;
end;
end;
Application.CreateForm(Tfrm_digital,frm_digital);
frm_digital.Show ;
end;
按照上述方法转移ClientHandle转移后,发现可以非主窗体也可以显示子MDI了,但是,关闭了MDI父窗体的时候,发现原来的主窗体显示不正常了,如下图所示:变成灰色了,鼠标放在按钮上有延时变化,但是点击确没反应,然后在MDI父窗体关闭的时候,添加了如下代码发现还是没用procedure Tfrm_Monitor.FormClose(Sender: TObject;
var Action: TCloseAction);
var
pHandle:^THandle ;
begin
pHandle :[email protected];
pHandle^:=frm_Main.ClientHandle;
ShowMessage(Application.MainForm.Name);//显示是原来主窗体的名字
end;求解怎么解决这个问题
B应该为主窗体。登陆窗体可以用子窗体弄。在工程文件里面弄下。先显示登陆子窗体。然后再显示主窗体。
我自己内嵌了窗体,模仿MDI我知道MDI父窗体必须是主窗体,我就是想问MDI父窗体,怎么样才能让它不是主窗体,也可以使用