如何创建具有功能取消按钮和具有默认值功能的输入框

Question

使用 InputBox 时，我可以为文本字段添加默认值。像这样：

inputbox('value Enter', 'enter a value', 'default value');

很遗憾，取消按钮无法正常使用。按下取消时，inputbox 给出默认值。这并不理想。

还有一个 'inputquery' 对话框，它有一个功能对话框，但没有默认值选项。

inputquery('Title', 'enter a value', variabile1);

这几乎只剩下设计一个新表单用作对话框的唯一选择，但这也不理想。

是否有一个对话框，其中有一个可以正常使用的取消按钮和一个默认值选项？

Answer 1

事实上，InputQuery 函数确实允许您设置默认值：

var S := 'Sir Anthony Frogkins';
if InputQuery('Frog Simulator', 'Please enter the name of the frog:', S) then
  ShowMessageFmt('Frog name: %s', [S]);

事实上，从InputQuery函数的文档来看：

Value is the value that appears in the edit box when the dialog box first appears and which returns the value that the user enters.

因此，即使不询问 Stack Overflow，您也可能已经意识到这一点！我认为这就是为什么世界上的每门计算机编程课程¹ 都以相同的重要课程开始：“始终阅读您正在使用的 API 的文档。”

¹我想象中的梦幻世界

如何创建具有功能取消按钮和具有默认值功能的输入框

How to create a Input box with a functioning cancel button and a ability to have a default value

delphi

input

inputbox