delphi InputQuery

本示例在表单上需要一个按钮和一个标签。单击按钮时，将显示输入框。如果选择“确定”，则在对话框的编辑框中显示的字符串将显示为表单上标签的标题。如果选择“取消”，对话框将关闭并且标签的标题保持不变。

var

NewString: string;

ClickedOK: Boolean;

begin

NewString := 'Default String';

ClickedOK := vcl.Dialogs.InputQuery('Input Box', 'Prompt', NewString);

if ClickedOK then { NewString contains new input string. }

Caption := NewString;

推荐分享