- 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;
来源: http://www.bubuko.com/infodetail-3464619.html