InputBox(
Caption: String;
Prompt: String;
Var Data: String;
[ParentWindow: IWin32Window = Null]): Boolean;
Caption. Заголовок диалога.
Prompt. Сообщение, отображаемое над полем для ввода значения. К указанному сообщению в конце автоматически будет добавлен символ «:».
Data. Переменная, в которую помещается введеное значение.
ParentWindow. Родительское окно, для которого диалог открывается модально. По умолчанию передается значение Null, при этом диалог откроется модально для текущего окна.
Метод InputBox вызывает стандартный диалог для ввода данных и возвращает результат закрытия диалога.
Используется только в настольном приложении.
При нажатии кнопки «ОК» метод вернет значение True и введенное значение будет помещено в переменную, указанную в параметре Data.
При нажатии кнопки «Отмена» метод вернет значение False. В переменной, указанной в качестве параметра Data, будет содержаться пустая строка.
Для выполнения примера предполагается наличие формы и расположенной на ней кнопки.
Добавьте ссылку на системную сборку UI.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
s: String;
b: Boolean;
Begin
b := WinApplication.InputBox("Изменение данных", "Новое значение", s);
If b Then
Self.Text := s;
End If;
End Sub Button1OnClick;
При нажатии на кнопку на экран будет выведен диалог ввода данных. Введенное значение будет установлено в качестве заголовка формы, если в диалоге была нажата кнопка «ОК».
См. также: