DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: lixuan123
今日帖子: 0
在线用户: 0
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 quicksand (流沙) ★☆☆☆☆ -
盒子活跃会员
2003/11/29 15:05:50
标题:
能不能使MDI的子窗体以模式状态显示?如何实现。 浏览:1587
加入我的收藏
楼主: 我用showmodal报错“Cannot not make a visible window modal”??

----------------------------------------------
-
作者:
男 bios (阿贡) ★☆☆☆☆ -
盒子中级会员
2003/11/29 15:56:33
1楼: 把子窗体的visible属性设置成FALSE看看
----------------------------------------------
按此在新窗口浏览图片
按此在新窗口浏览图片
作者:
男 quicksand (流沙) ★☆☆☆☆ -
盒子活跃会员
2003/11/30 2:35:32
2楼: 不行啊,提示:“Cannot hide an MDI child Form”
----------------------------------------------
-
作者:
男 bios (阿贡) ★☆☆☆☆ -
盒子中级会员
2003/11/30 9:42:50
3楼: 那就没办法了 

你可以在子窗体 出现时把主窗体 的 所有 控件都设置成FALSE
在子窗体的 ONCLOSE事件再重新设置成TRUE!
----------------------------------------------
按此在新窗口浏览图片
按此在新窗口浏览图片
作者:
男 113794688 (绿叶) ★☆☆☆☆ -
盒子活跃会员
2003/11/30 13:24:26
4楼: 你最好把窗体设置为Normal 模式这样就不会出错了。
----------------------------------------------
-
作者:
男 quicksand (流沙) ★☆☆☆☆ -
盒子活跃会员
2003/11/30 13:59:28
5楼: 我就是想用MDI,感觉delphi的MDI怪怪的,没有VB的好用。
----------------------------------------------
-
作者:
男 hfqxfx (~!@) ★☆☆☆☆ -
盒子活跃会员
2004/1/13 14:18:19
6楼: 是的,我也不知如何写,还有是他的最大化和最小化我如何去掉呢
----------------------------------------------
~~
作者:
男 bios (阿贡) ★☆☆☆☆ -
盒子中级会员
2004/1/13 15:22:43
7楼: --
此帖子包含附件:
JPEG 图像
大小:111.8K
----------------------------------------------
按此在新窗口浏览图片
按此在新窗口浏览图片
作者:
男 bios (阿贡) ★☆☆☆☆ -
盒子中级会员
2004/1/13 15:31:53
8楼: procedure TMainForm.CreateMDIChild(const Name: string);
var
  Child: TMDIChild;
  mnu:TMenuItem;
  i:Longint;
  s,s2:string;
begin
  ifopen:=false;
  Child := TMDIChild.Create(Application);//自动就显示出来了
// 如果你强行 showmodal  那就肯定运行时错误!
// BORLAND 的思想和微软的VB 的 不一样 大家不要埋怨了
//要埋怨去找BORLAND和微软吧!
  Child.Caption := Name;
  Child.Edit1.Text :=IntToStr(MDIChildCount);
  if FileExists(Name) then Child.Memo1.Lines.LoadFromFile(Name);
  //--------------------------------------
  AddMenu(Name);
  Addsheet(Name);
  ifopen:=true;
end;

----------------------------------------------
按此在新窗口浏览图片
按此在新窗口浏览图片
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行80.07813毫秒 RSS