有没有人知道怎样让MDI的子窗口只打开一个! 高手: 有没有人知道怎样让MDI的子窗口只打开一个!当这个子窗口关闭后还可打开!也只能一个?请高手解答答!? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 各位对不起改正一个错误:是这样的在一个MDI程序中要打开一个子窗口,只能让这个窗口创建一次,也就不能打开两个相同的子窗口,而这个子窗口关闭后还可以打开! const CM_RESTORE =WM_USER+ $1000; {自定义的“恢复”消息} CHILDNAME = 'My Child Program'; var RvHandle : hWnd; RvHandle := FindWindow(MYCHILD, NIL); if RvHandle > 0 then begin PostMessage(RvHandle, CM_RESTORE, 0, 0); Exit; end;以上代码加在项目文件或父窗口中 在创建的时候写 frmMDIChild := TfrmMDIChild(Application);『在整个程序关闭的时候该窗体才会释放』所以只需要创建一次 然后可以用: frmMDIChild.show;来调用 先if MDICHILDCOUNT>0 THEN begin ActiveMDIChild.Close ; end;再showmodal窗口 【CSDN开心辞典】牌牌最多的人是谁?(含各类勋章) loginprompt问题 TIdSocketHandle没有怎么办 谁能提供《中小企业客户管理系统》的资料!---帮朋友做的毕业设计!(高分求助500) 请教:如何使DBgrid控件的第一列成为固定列 高分解决sql问题。在线等待。 求一个文档管理软件或类似程序及代码? 高分求代码-进程管理器 如何拦截WebBrowser的WM_IME_CHAR消息 帮个忙,关于mdi窗体的问题 给个详解,关于FORMAT函数! dbgrid的内容怎么输出到excel中打印??
CM_RESTORE =WM_USER+ $1000; {自定义的“恢复”消息}
CHILDNAME = 'My Child Program';
var RvHandle : hWnd; RvHandle := FindWindow(MYCHILD, NIL);
if RvHandle > 0 then
begin
PostMessage(RvHandle, CM_RESTORE, 0, 0);
Exit;
end;以上代码加在项目文件或父窗口中
frmMDIChild := TfrmMDIChild(Application);『在整个程序关闭的时候该窗体才会释放』所以只需要创建一次
然后可以用:
frmMDIChild.show;来调用
begin
ActiveMDIChild.Close ;
end;
再showmodal窗口