InputQuery(const ACaption, APrompt: string; var Value: String): Boolean - функция Delphi, которая выводит диалоговое окно в центре экрана с полем для ввода и надписью, вместе с кнопками OK и Cancel. От функции InputBox отличается тем, что третий параметр строки заменен на Value, который если ввод подтвержден содержит введенную пользователем строку.
Функция в качестве результата возвращает логическое значение, с помощью которого можно определить как завершен диалог. Значение TRUE будет при нажатой кнопке OK, FALSE - при нажатии на кнопку Cancel или на клавишу ESC.
Для закрепления материала создадим приложение с диалогом. Диалоговое окно запрашивает у нас фамилию и инициалы. По умолчанию предлагается - Гость, чтобы строка запроса была пустая, переменная fio должна состоять из открывающей и закрывающей одинарных кавычек ( fio := ''; ).
Поместим на форму кнопку и в ее обработчике запишем следующий код:
procedure TForm1.Button1Click(Sender: TObject); var fio : string; begin fio := 'Гость'; If InputQuery('Идентификация пользователя', 'Введите фамилию и инициалы',fio) then ShowMessage('Добро пожаловать '+fio) else ShowMessage('Вы незнаете как Вас зовут'); end;
Итог: нами была рассмотрена функция Delphi InputQuery ее использование в приложении.
Поздравляю Вас с праздником! Всех благ и успехов в продвижении сайта!