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根据窗口句柄获取所在程序路径

Delphi中判断tcp端口是否被占用

Delphi 字符串显示后5位

Delphi获取flash文件的影片时长,原始尺寸,帧数等信息

Delphi 使控件支持鼠标滚轴消息

Delphi中动态加载image控件图片的方法

Delphi 跟随鼠标位置点击弹出菜单

Delphi 判断文件是否存在

Delphi exe执行程序dos参数的运用

Delphi adoquery1数据表参数调用

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

转载请注明出处：木庄网络博客 » delphi 三个消息函数的威力