delphi 弹出输入框的InputQuery, InputQuery 函数用法

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;