[原创] Delphi InputBox、InputQuery函数

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

InputQuery函数原码中：

注意这两个：

　　ModalResult := mrOk;

　　ModalResult := mrCancel;

这两个和窗体创建的时候采用的方法：ShowModal 相关，可以采用这种方法判断：

if ShowModal = mrOk then  或者

if ShowModal = mrCancel then ；

 

创建日期：2019.12.18　更新日期：2019.12.19

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