delphi 三个消息函数的威力


本文整理自网络,侵删。

 

InputBox,InputQuery和ShowMessage函数的应用:

uses dialogs;
var s,s1:string;
b:boolean;
begin
s:=trim(Inputbox('NewPassword','Password','masterkey'));
b:=s<>'';
s1:=s;
if b then
b:=InputQuery('Confirm Password','Password',s1);
if not b or (s1<>s) then
ShowMessage('Password Failed');
end;

将以上代码运行一下,看看是什么效果?

相关阅读 >>

Delphi txt编码互转 ansi utf-8

Delphi winapi: setlayeredwindowattributes - 设置窗口的透明

Delphi twebbrowser与嵌入youtube视频崩溃

Delphi 仿dbnavigator方式

Delphi使用indy组件http上传文件

Delphi提取字符串

Delphi 根据关键字取关键词以后的字符串

Delphi settextbuf

Delphi xe6 �c使用android的zlib

Delphi中如何判断是否有程序全屏

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...