DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: wenr2009
今日帖子: 0
在线用户: 1
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 bbhorse (xinhua2008) ★☆☆☆☆ -
盒子活跃会员
2003/4/15 23:12:19
标题:
还是有关父,子窗体的问题 浏览:2303
加入我的收藏
楼主: 有父窗体上有几个按键,每一个对应一个子窗体。我想当按了某一个键时它对应的子窗体出来之后,在没有关这个子窗体之前再按那个键这个子窗体就是不再会生成一个新的。要是有几个子窗体时就是激活对应的窗体。请问应如何才能实现,谢谢了!!!
----------------------------------------------
愿和所有喜欢DELPHI的人做朋友!
作者:
男 cjrb (Thinking In 魂) ★☆☆☆☆ -
盒子活跃会员
2003/4/16 10:01:23
1楼: 这个不知道算不算是,呵呵
panel1为Main_Win主窗体的一个面板
第一个按钮:
  CloseOtherWin(1,self);
  if First_Win=nil then
    Application.CreateForm(TFirst_Win, First_Win);
  First_Win.Parent:=panel1;
  First_Win.Left:=20;
  First_Win.Top:=5;
  First_Win.Width :=panel1.Width-40;
  First_Win.Height :=Panel1.Height-40; //800*600:515:
  First_Win.Show;
第二个按钮:
  CloseOtherWin(2,self);
  if Second_Win=nil then
    Application.CreateForm(TSecond_Win, Second_Win);
  Second_Win.Parent:=panel1;
  Second_Win.Left:=20;
  Second_Win.Top:=5;
  Second_Win.Width :=panel1.Width-40;
  Second_Win.Height :=Panel1.Height-40; 
  Second_Win.Show;
-----
procedure TMain_Win.CloseOtherWin(i:integer;Sender:TObject);
begin
  if (i<>1) and (First_Win<>nil) then
  begin
    First_Win.close;
    First_Win:=nil;
  end;
  if (i<>2) and (Second_Win<>nil) then
  begin
    Second_Win.close;
    Second_Win:=nil;
  end;
end;
----------------------------------------------
按此在新窗口浏览图片 充电..........
作者:
男 Another (Another) ★☆☆☆☆ -
盒子活跃会员
2003/4/16 14:39:18
2楼: 如下:
1,主窗体中把各子窗体的单元文件加入。
2,选Project->Option->Form 选项卡,把那几个窗体都变成Available Forms
3,调用子窗体如下所示:
  if Frm1 = nil then
  begin
    Frm1 := TFrm1.Create(Application);
  end
  else
  begin
    Frm1.WindowState := wsNormal ;
    Frm1.BringToFront ;
  end ;
4,子窗体的关闭代码如下:
 Frm1.close ;
5, 子窗体的FormClose 事件
  Action := caFree ;
  Frm := nil ;

//经过几上五步所有的子窗体问题都能得以解决!

Another Delphi Developer

ADD
----------------------------------------------
按此在新窗口浏览图片
作者:
男 bbhorse (xinhua2008) ★☆☆☆☆ -
盒子活跃会员
2003/4/16 20:10:41
3楼: 十分感谢你们的答复!
----------------------------------------------
愿和所有喜欢DELPHI的人做朋友!
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v2.1 版权所有 页面执行36.13281毫秒 RSS