本文整理自网络，侵删。
作者：饶诗伟
procedure TForm1.Button1Click(Sender: TObject);
var str: string;
begin str := InputBox('输入窗口标题', '输入提示', '默认输入内容');
ShowMessage(str); //显示输入的内容
end;
InputBox 是调用了 InputQuery, InputQuery 是通过一个 var 参数获取新字串:
procedure TForm1.Button2Click(Sender: TObject);
var str: string;
begin InputQuery('输入窗口标题', '输入提示', str);
ShowMessage(str); //显示输入的内容
end;
InputQuery 可返回一个 Boolean 值, 可判断用户是确认还是取消, 挺有用的:
procedure TForm1.Button3Click(Sender: TObject);
var str: string;
begin str := '默认输入内容';
if InputQuery('输入窗口标题', '输入提示', str) then
ShowMessage(str); //如果点击了 ok 按钮将显示输入的内容
end;
示例：
procedure TForm1.FormCreate(Sender: TObject);
begin
if (inputbox('登录窗口’,'请输入账号','')='MyName')
and (inputbox('登录窗口','请输入密码','')='1234') then
Showmessage('欢迎进入系统')
else
begin
Showmessage('输入有误，退出系统！');
Application.Terminate;
end;
end; 相关阅读 >>
Delphi xe 自己编辑xe2 vcl style(皮肤/skin)
Delphi 使用windows api(wincrypt)计算文件md5哈希，支持大文件
Delphi tms web core tedit编辑输入框属性展示
更多相关阅读请进入《Delphi》频道 >>
