DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: lixuan123
今日帖子: 17
在线用户: 3
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 justs0s0 (justs0s0) ★☆☆☆☆ -
普通会员
2003/10/1 21:04:56
标题:
关于窗体关闭时的问题 浏览:1591
加入我的收藏
楼主: 哎,例如FORM1和FORM2两个窗体
FORM1为登录窗体
FORM2为密码正确后的主界面
为什么我只能在FORM1登录按钮CLICK事件中写入FORM2.SHOW ; FORM1.HIDE呢
而不能关闭FORM1呢
请多指教
----------------------------------------------
及我所能做我所想
作者:
男 cnxxx (我本高手) ★☆☆☆☆ -
盒子活跃会员
2003/10/2 1:49:21
1楼: 因为程序只有一个主窗体,主窗体close整个程序就close了,所以用hide;
----------------------------------------------
黑夜中,一眼望去,我就是高手。
作者:
男 bios (阿贡) ★☆☆☆☆ -
盒子中级会员
2003/10/2 7:16:42
2楼: 1楼正确!
----------------------------------------------
按此在新窗口浏览图片
按此在新窗口浏览图片
作者:
男 bhg007 (bhg007) ★☆☆☆☆ -
盒子活跃会员
2003/10/2 11:53:56
3楼: 在工程->选项中把form1从自动建立窗体列表中去掉,然后在工程源代码中手工建立form1,调用后再关闭。
project project1
use ........
....
begin
  Application.Initialize;
  Application.CreateForm(TForm2, Form2);
  form1:=Tform1.create(nil);
  Application.Run;
......
end;
----------------------------------------------
-
作者:
男 justs0s0 (justs0s0) ★☆☆☆☆ -
普通会员
2003/10/2 12:21:56
4楼: 大哥,能不能再具体点,我智商有限
----------------------------------------------
及我所能做我所想
作者:
男 zzybbs (zzybbs) ★☆☆☆☆ -
盒子活跃会员
2003/10/3 0:06:52
5楼: 楼上的代码已经很清楚了
----------------------------------------------
-
作者:
男 bhg007 (bhg007) ★☆☆☆☆ -
盒子活跃会员
2003/10/4 13:42:20
6楼: 在FORM1中声明一个函数:
unit unit1
use .........
function ShowForm1:boolean;//这是增加的函数,在工程代码里调用的。
......
var form1:Tform1;
//以下这段是增加的。
function ShowForm1:boolean;
begin
  try
  form1:=Tform1.Create(Application);
  Form1.ShowModal;
  result:=True;//或者False;
end;
......
......
end.
然后在工程源码中:
project project1
use ........
....
begin
  Application.Initialize;
  Application.CreateForm(TForm2, Form2);
//这里一调用Showform1就可以显示form1,当form1关闭后,才显示form2.
  if Showform1 then 
  Application.Run
  else
  Application.Terminate;
......
end; 

----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行62.5毫秒 RSS