[原创] Delphi InputBox、InputQuery函数

标签：提示信息   输出   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