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
 



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