[原创] Delphi InputBox、InputQuery函数

2021-01-23 23:13

阅读：466

标签：提示信息输出 res bool default function UNC text class

Delphi InputBox、InputQuery函数

两个函数都是弹框提示输入信息

function InputQuery(const ACaption, APrompt: string; var Value: string): Boolean; // 输出布尔值

function InputBox(const ACaption, APrompt, ADefault: string): string; // 输出文本

看一下 InputBox 的函数原型（调用了InputQuery 函数，看来它才是鼻祖）：

function InputBox(const ACaption, APrompt, ADefault: string): string;
begin
 Result := ADefault;
 InputQuery(ACaption, APrompt, Result);
end;

典型应用：

Edit1.Text:= InputBox(‘窗口的标题‘, ‘提示信息‘, ‘默认值‘);

InputQuery函数的返回值即点击了OK返回True，否则返回False

更新日期：2019.12.18

来源于：https://www.cnblogs.com/guorongtao/p/12061027.html

[原创] Delphi InputBox、InputQuery函数

标签：提示信息输出 res bool default function UNC text class

原文地址：https://www.cnblogs.com/guorongtao/p/12061027.html

文章来自：搜素材网的编程语言模块，转载请注明文章出处。
文章标题：[原创] Delphi InputBox、InputQuery函数
文章链接：http://soscw.com/index.php/essay/46071.html

亲，登录后才可以留言！