DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: wsiqin
今日帖子: 6
在线用户: 9
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 inbreak (入侵) ★☆☆☆☆ -
盒子活跃会员
2021/4/30 21:31:30
标题:
补充一下 InputQuery 的高级用法(可用于替代密码修改窗口) 浏览:354
加入我的收藏
楼主: procedure ShowErrorMsg(Amsg:string);
begin
  Application.MessageBox(PChar(Amsg), 'error', MB_OK);
  abort;
end;

procedure TFrm_Main.Btn_1Click(Sender: TObject);
var
  ss:array of string;
begin
  SetLength(ss,3);
  if InputQuery('密码修改',[Chr(0)+'旧 密 码',Chr(0)+'新 密 码',Chr(0)+'确认密码'],ss,
    function (const Values: array of string): Boolean
    begin
      Result := False;
      if Values[0]<>'123' then ShowErrorMsg('旧密码不正确');
      if Values[1]<>Values[2] then ShowErrorMsg('两次密码不同');
      Result := True;
     end)
  then begin
    ShowMessage('请牢记您的新密码:'+SS[1]);
  end;
end;

转自:https://blog.csdn.net/aroc_lo/article/details/116309646
----------------------------------------------
我是菜鸟,己经搞了十多年了,但是我仍然很菜。
作者:
男 tulater (tulater) ★☆☆☆☆ -
普通会员
2021/5/1 11:44:08
1楼: 谢谢分享
----------------------------------------------
http://www.cnblogs.com/tulater/
作者:
男 kentty (kentty) ★☆☆☆☆ -
普通会员
2021/5/1 14:26:14
2楼: 这里输入密码是明文显示吧,能不能用*代替?
----------------------------------------------
-
作者:
男 tulater (tulater) ★☆☆☆☆ -
普通会员
2021/5/1 18:18:57
3楼: 学习了
此帖子包含附件:
PNG 图像
大小:10.2K
----------------------------------------------
http://www.cnblogs.com/tulater/
作者:
男 net1999 (net1999) ★☆☆☆☆ -
普通会员
2021/5/2 9:41:04
4楼: 牛!
----------------------------------------------
-
作者:
男 ksrsoft (cb168) ★☆☆☆☆ -
注册会员
2021/5/2 17:08:23
5楼: 不用新建form了,方便
----------------------------------------------
-
作者:
男 inbreak (入侵) ★☆☆☆☆ -
盒子活跃会员
2021/5/4 9:26:21
6楼: @kentty 

Are you sure?
----------------------------------------------
我是菜鸟,己经搞了十多年了,但是我仍然很菜。
作者:
男 hsj (hsj) ★☆☆☆☆ -
盒子活跃会员
2021/5/4 13:54:44
7楼: Chr(0)控制显示*
----------------------------------------------
qq:171833017,靖源软件http://www.dxmylove.com
作者:
男 machcat (机器猫) ★☆☆☆☆ -
盒子活跃会员
2021/5/4 17:46:56
8楼: D7用不了
----------------------------------------------
机器猫
作者:
男 kentty (kentty) ★☆☆☆☆ -
普通会员
2021/5/4 22:07:56
9楼: @inbreak 看明白chr(0)的作用了,强
----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v2.1 版权所有 页面执行23.4375毫秒 RSS