通过 InputBox 可获取用户输入的字符串:
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; d
本文来自博客园,作者:del88,转载请注明原文链接:https://www.cnblogs.com/del88/archive/2013/01/15/2862009.html