DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: snarv12
今日帖子: 1
在线用户: 16
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 leiyvn (雷子) ★☆☆☆☆ -
普通会员
2004/3/3 9:56:42
标题:
bios 帮忙呀!!!!!关于MDI  急 浏览:1257
加入我的收藏
楼主: 假如我有一个名子a的主窗体,另有名字b,c的子窗体,我想让子窗体b show的时候
c看不见,当c show的时候b看不见,不用手动关闭子窗体;就是说在主窗体中只看到一个字窗体;  谢谢
----------------------------------------------
继续开发我的delphi
仍然有Java  各位加油!
作者:
男 qiongfei (茕菲) ★☆☆☆☆ -
普通会员
2004/3/3 10:19:43
1楼: 改窗体的visible属性就可以了

比如在a的show里加入b.visible:=false那b就不显示了的
----------------------------------------------
-
作者:
男 bios (阿贡) ★☆☆☆☆ -
盒子中级会员
2004/3/3 10:23:57
1楼: 不管有几个 在其中随便一个时 ,先执行 "关闭全部"
然后打开这个就可以啦
1)最近很忙啊,要面试 ,笔试,还要毕业论文,还要实习VC。
----------------------------------------------
按此在新窗口浏览图片
按此在新窗口浏览图片
作者:
男 leiyvn (雷子) ★☆☆☆☆ -
普通会员
2004/3/4 8:56:13
2楼: bios 你的方法很好呀
----------------------------------------------
继续开发我的delphi
仍然有Java  各位加油!
作者:
男 leiyvn (雷子) ★☆☆☆☆ -
普通会员
2004/3/21 13:44:24
3楼: 谢谢各位  我有更好的方法了  :
{*****子窗体建立监视函数,只需建立一次,否则直接显示*****}
procedure OpenChildForm(FormClass: TFormClass; var Fm; AOwner:TComponent);
var
  i: integer;
  Child:TForm;
begin
  for i := 0 to Screen.FormCount -1 do
      if Screen.Forms[i].ClassType=FormClass then
      begin
        Child:=Screen.Forms[i];
        if Child.WindowState=wsMinimized then
           ShowWindow(Child.handle,SW_SHOWNORMAL)
        else
           ShowWindow(Child.handle,SW_SHOWNA);
        if (not Child.Visible) then Child.Visible:=True;
        Child.BringToFront;
        Child.Setfocus;
        TForm(Fm):=Child;
        exit;
      end;
  Child:=TForm(FormClass.NewInstance);
  TForm(fm):=Child;
  Child.Create(AOwner);
  child.Update;
end;
调用
OpenChildForm(Tpdm,pdm, Self);



----------------------------------------------
继续开发我的delphi
仍然有Java  各位加油!
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行58.59375毫秒 RSS