| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/2/4 0:20:16 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 假设现在有form1(main),form2,form3,form4四个窗体，form1启动后，随便显示form2,form3,form4中的任意一个窗体，当要显示其它窗体时，当前显示的窗体必须先关闭，如何实现，谢谢。 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/4 0:31:07 | ||||
| 1楼： | 比如你要用button1打开form3窗口，如果想让其它窗口关闭的话就在button1的Click事件中写下如下代码 self.close; form3.show; 这样应该就可以了吧。 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/4 0:37:22 | ||||
| 2楼： | 不行，你用self.close关闭的时候，那个主窗体已被关闭了，这样程序就直接退出了，哪还能调用其它的，你试试，还是要谢谢你的指点。。 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/4 9:02:50 | ||||
| 3楼： | 你要主窗口看不到？用地visible可以么？ ----------------------------------------------  =^@^= |
|||||
| 作者： |
|
2004/2/4 9:04:24 | ||||
| 3楼： | procedure TForm2.FormShow(Sender: TObject); var iCount:Integer; begin For iCount:=0 to Screen.FormCount-1 do begin if (Screen.Forms[iCount] <> Form2) and (Screen.Forms[iCount] <> Form1) then Screen.Forms[iCount].Close; end; end; ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/4 9:54:38 | ||||
| 4楼： | to jsnjsmc: 请问窗口分别有不同的名字（如frmmain、frminput、frmbrowse等），又怎样关闭呢？谢谢！ ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/4 11:15:59 | ||||
| 5楼： | procedure Tfrm1.FormShow(Sender: TObject); var iCount:Integer; begin For iCount:=0 to Screen.FormCount-1 do begin if (Screen.Forms[iCount] <> frm1) and (Screen.Forms[iCount] <> frmm) then Screen.Forms[iCount].Close; end; end; ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/5 9:00:38 | ||||
| 6楼： | to jsnjsmc:谢谢！ ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/5 9:45:13 | ||||
| 7楼： | 伙计，是在作闪屏吧！ 因为机子速度不同，程序加载时间不一 所以我是用闪屏上TIMER控制的，2秒3秒随便 时间一到FREE掉就行了！ ---------------------------------------------- 我来自农村广阔的田野我的每一个动作都很夸张http://waterstone.51r.com |
|||||
| 信息 |
| 登陆以后才能回复 |
