InputBox,InputQuery-带有编辑框的消息对话框

InputBox函数和InputQuer函数用于显示一个带有编辑框组件的消息对话框，为用户提供输入文本的功能，在该提示框有一个文本输入框和两个命令按钮。

如图：

 （1）.InputBox：显示一个带有编辑框组件的消息对话框，为用户提供输入文本的功能。

函数参数说明：

function InputBox(const ACaption, APrompt, ADefault: string): string;

ACaption：消息对话框标题

APrompt：消息对框框提示信息

ADefault：消息对话框首次出现时编辑框中显示得信息，也就是默认信息。

var
  MyString: string;
begin
    mystring:= InputBox('对话框标题','对话框提示信息','对话框默认信息');
    memo2.Lines.Text:= MyString;
end;

可以看出InputBox函数是有一个String的返回值的，这个返回值就是编辑框中的内容，如果对话框点击了OK按钮，则会将编辑框内容传入String变量，进行其他操作，点击Cancel按钮，则返回值依然为默认值。也就是上面：对话框默认信息“。

（2）.InputQuery:显示一个带有编辑框组件的对话框，为用户提供输入文本功能，并判断用户是否按下“OK”按钮，如果点击OK按钮，则会将输入框中的字符串赋值给Value参数。

函数参数说明：

function InputQuery(const ACaption, APrompt: string; var Value: string): Boolean;

ACaption：消息对话框标题

APrompt：消息对框框提示信息

Value：对话框首次出现在编辑框中时显示的字符串，并得到用户在消息对框框中输入的字符串。

var
  ClickOK: Boolean;
  MyString: string;
begin
    MyString:= '我变成了一个字符串';
    ClickOK:= InputQuery('对话框标题','对话框提示信息',MyString);//此处只能传入字符串变量
    if ClickOK then
    memo2.Lines.Text:= MyString;//如果点解OK按钮，则将编辑框内信息写入到memo2中
9 end;

 可以看出InputQuery函数的返回值是一个布尔值。它于InputBox函数最大的区别在于：

1.可以控制是否有编辑框默认值（第一次打开默认值），上面MyString变量不赋值，就不会有默认值。

2.点击按钮之后可以根据返回的布尔值来决定是否需要其他操作，上面点击OK则将编辑框信息写入memo2中。