Функция InputQuery в Delphi відображає діалог, який просить користувача ввести текст.
Dialogs unit
function InputQuery (const Caption, Prompt : string; var UserValue : string) : Boolean;
Функція InputQuery відображає просте діалогове вікно із Заголовком (Caption) та Підказкою (Prompt). Воно просить, щоб користувач ввів дані у текстове поле в діалоговому вікні. Якщо користувач натиснув OK, то введені дані зберігаються в змінну UserValue, і значення, що повертається буде True.
Якщо користувач скасовує діалог, то значення, що повертається буде False, і будь-які введені дані будуть втрачені.
Використовуйте цю функцію, щоб запитати в користувача прості дані, наприклад прізвище.
Функція InputQuery: Запитуємо у користувача його прізвище
var
value : string;
begin
// Продовжуємо запитувати у користувача його прізвище
repeat
if not InputQuery('Test program', 'Будь ласка, вкажіть своє прізвище', value)
then ShowMessage('Користувач перервав діалог');
until value <> '';
// Відображення його прізвища
ShowMessage('Hello '+value);
end;Результат
Діалог відобразить запитуване прізвище користувача.
Якщо користувач надрукує "Ivanov" і натисне OK, відобразиться:
Hello Ivanov
Подібні функції, процедури та команди
InputBox — відображає діалог, який просить користувача про введення тексту, за замовчуванням.
PromptForFileName — показує діалог, що дозволяє користувачеві вибрати файл.
ShowMessage — показує просте діалогове вікно з кнопкою ОК, що містить заданий рядок.
ShowMessageFmt — відображає відформатовані дані у простому діалоговому вікні з кнопкою ОК.
ShowMessagePos — показує рядок у простому діалоговому вікні розміщеному у заданому місці.
Пригостити автора кавою