DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: easeover
今日帖子: 25
在线用户: 6
导航: 论坛 -> 移动应用开发 斑竹:flyers,iamdream  
作者:
男 aknightchen (.) ★☆☆☆☆ -
盒子活跃会员
2019/11/11 14:59:33
标题:
小白求教: 安卓下, form2中,如何关闭自已... 浏览:191
加入我的收藏
楼主: 大致场景:
form1中, 点击一个按纽,来创建form2;

form2中,有一个"退出按纽". 此按纽是调用form1中的定时器来关闭form2;
==========


form1中.

点击一个按纽,创建form2,并显示

procedure TForm1.Button3Click(Sender: TObject);
begin
  if form2=nil then
    form2:=tform3.Create(Self);

  form2.Show;
end;

同时,放一个定时器,用于关闭form2;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled:=False;
  form2.DisposeOf;
  form2:=nil;

  //form1.Show; 才可以解决黑屏.(但会闪一下)
end;

==========
form2中,放一个按纽,用于"关闭窗口".


procedure Tform2.Button1.OnClick(Sender);
begin
  form1.Timer1.Enabled:=True;
end;



==========

但是, 当定时器执行时, 把form2释放后, 后机就处于黑屏状态.

这时,除非在定时器执行完后,再加一个

form1.Show; 才可以解决黑屏.(但会闪一下)

----------

求教大侠:

1>.form关闭自身,有没有其它更好的方法?

2>.我上述笨方法中,关闭form2时, 如何可以不闪一下?

感谢各位大侠的指点!
----------------------------------------------
...
作者:
男 tuesdays (Tuesday) ▲▲▲△△ -
注册会员
2019/11/11 15:14:45
1楼: 先隐藏, 再释放.
----------------------------------------------
delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行.
作者:
男 aknightchen (.) ★☆☆☆☆ -
盒子活跃会员
2019/11/11 18:09:08
2楼: 感谢 tuesdays.

效果非常非常好.

如下代码:

form2.hide;
form2.DisposeOf;
----------------------------------------------
...
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v2.1 版权所有 页面执行39.0625毫秒 RSS