Delphi справочник - Форум программистов - Навигация  
 A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  


Основы Delphi
InputQuery
Функция
Отображает диалог, который просит пользователя о вводе текста Dialogs unit
  function InputQuery ( const Caption, Prompt : string; var UserValue : string ) : Boolean;
Описание
Функция InputQuery отображает простое диалоговое окно с данным Заголовком (Caption) и Подсказкой (Prompt). Оно просит, чтобы пользователь ввел данные в текстовое поле на диалоговом окне. Если пользователь нажал OK, то введенные данные сохраняются в переменную UserValue, и возвращаемое значение будет True.

Если пользователь отменяет диалог, то возвращаемое значение будет False, и любые введенные данные будут потеряны.

Используйте, чтобы спросить у пользователя простые данные, например имя.
Похожие команды
InputBox  Отображает диалог, который просит пользователя о вводе текста, со значением по умолчанию

PromptForFileName  Показывает диалог, позволяющий пользователю выбрать файл

ShowMessage  Показывает простое диалоговое окно с кнопкой ОК, содержащее заданную строку

ShowMessageFmt  

ShowMessagePos  Показывает строку в простом диалоговом окне размещенном в заданном месте

 
Пример кода : Спрашиваем у пользователя его имя
var
  value : string;

begin
  // Продолжаем спрашивать у полльзователя его имя
  repeat
    if not InputQuery('Test program', 'Пожалуйста, укажите своё имя', value)
    then ShowMessage('Пользователь прервал диалог');
  until value <> '';

  // Показ его имени
  ShowMessage('Hello '+value);
end;
Диалог отобразит спрашиваемое имя пользователя.
Если пользователь напечатает 'Fred' и нажмёт OK, то отобразится:

Hello Fred
 



© Форум Delphi   |  Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки   |  Английская версия