DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: hxh57738897
今日帖子: 27
在线用户: 8
导航: 论坛 -> 移动应用开发 斑竹:flyers,iamdream  
作者:
男 akai1203 (w-dins) ★☆☆☆☆ -
普通会员
2019/8/16 1:08:58
标题:
delphi  xe  10.1 在过程或函数中用abort语句会关闭窗口? 浏览:1364
加入我的收藏
楼主:
各位,在delphi  xe  10.1 的过程或函数中用abort语句会关闭当前窗口是什么原因?
----------------------------------------------
-把学习当信仰
作者:
男 iamdream (银河恒久远,梦想无止境!) ★☆☆☆☆ -
大贡献会员
2019/8/16 7:07:55
1楼: 你查一下帮助,看看abort函数的作用。其实abort函数一直都是这样的。
----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了……
作者:
男 iamdream (银河恒久远,梦想无止境!) ★☆☆☆☆ -
大贡献会员
2019/8/16 7:16:21
2楼: abort的效果类似于raise EAbort.
----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了……
作者:
男 akai1203 (w-dins) ★☆☆☆☆ -
普通会员
2019/8/16 9:03:37
3楼: 在firemonkey中,abort关闭窗口是正常?我只是想某个过程中不满足条件时禁止程序往下走
----------------------------------------------
-把学习当信仰
作者:
男 iamdream (银河恒久远,梦想无止境!) ★☆☆☆☆ -
大贡献会员
2019/8/16 10:30:10
4楼: Abort只是中断执行,你说的关闭窗口不是它的功能,而应该是你的代码在遇到异常中断执行后自己将窗口关掉了。
----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了……
作者:
男 wang_80919 (Flying Wang) ★☆☆☆☆ -
普通会员
2019/8/16 10:31:10
5楼: 反正我的代码不会就行了。
楼主最好学习下 Abort 和 Exit 的区别。
----------------------------------------------
(C)(P)Flying Wang
作者:
男 akai1203 (w-dins) ★☆☆☆☆ -
普通会员
2019/8/16 15:19:01
6楼: 代码就是一个函数

function TfrmLogin.CheckBeforeLogin: boolean;
begin
  Result := False;
  if Trim(edtUser.Text) = EmptyStr then
  begin
    Toast('用户名不能为空', ShortToast);
    Abort;
  end;
  Result := true;
end;

然后在TRectangle的ontap事件中执行这个CheckBeforeLogin函数就出现描述的问题
----------------------------------------------
-把学习当信仰
作者:
男 akai1203 (w-dins) ★☆☆☆☆ -
普通会员
2019/8/16 16:07:00
7楼: 老猫用的哪个版本
----------------------------------------------
-把学习当信仰
作者:
男 wang_80919 (Flying Wang) ★☆☆☆☆ -
普通会员
2019/8/16 16:08:12
8楼: 肯定不用你的旧版本。
另外,说清楚是什么平台。

我的 WIN 安卓 都没有问题。
我 XP 到 WIN10 还有 安卓 都没问题。
其他的平台,我没有。
----------------------------------------------
(C)(P)Flying Wang
作者:
男 akai1203 (w-dins) ★☆☆☆☆ -
普通会员
2019/8/16 16:15:56
9楼: win7 + delphi xe10.1 berlin
----------------------------------------------
-把学习当信仰
作者:
男 akai1203 (w-dins) ★☆☆☆☆ -
普通会员
2019/8/16 16:17:45
10楼: 刚装了个10.3.2 ,高勇大侠给的,编译提示can not find -lc
----------------------------------------------
-把学习当信仰
作者:
男 akai1203 (w-dins) ★☆☆☆☆ -
普通会员
2019/8/16 19:23:27
11楼: 自顶
----------------------------------------------
-把学习当信仰
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行62.5毫秒 RSS