Диалоговые окна. Функция InputBox

InputBox(const Acaption, APrompt, Adefault: String): String - функция Delphi, создает диалоговое окно для ввода строки текста. Окно располагается в центре экрана и содержит в себе поле для ввода с надписью и две кнопки OK и Cancel.

Acaption - параметр, устанавливает заголовок окна выводимый вверху на синем фоне.

APrompt - параметр, задает поясняющий текст на сером фоне.

Adefault - определяет строку текста,  которая будет показана в поле ввода и выделена синим цветом. При вводе текста надпись сразу пропадет. При отказе пользователя от ввода текста, нажатием кнопок ESC и Cancel функция InputBox возвратит этот параметр.

запрос Delphi функции inputbox

Для закрепления материала создадим небольшое приложение с которым мы будем вести диалог.

Расположим на форме простую кнопку и в ее обработчике напишем следующие команды:

procedure TForm1.Button1Click(Sender: TObject);
var
   fio : string;
   age : integer;
begin
   fio := InputBox('ФИО','Как Вас зовут','Не задано');
   age := StrToInt(InputBox('Возраст','Сколько Вам полных лет','0'));
   ShowMessage('Здравствуйте '+fio+#10#13+ 'Ваш возраст '+IntToStr(age)+ ' лет');
end;

текст сообщения

При щелчке на кнопке мы получим запрос о нашем имени. Ответив или нет мы попадаем ко второму запросу о возрасте. В последнем окне мы получим, как результат нашей работы Приветствие с сообщением о нашем возрасте. Подобным образом можно сделать приложение по тестированию.

Итог: нами была рассмотрена функция InputBox, ее применение в приложении.

Понравилась статья? Раскажите друзьям:
Общайтесь со мной

Оставить комментарий

Ваш email не будет опубликован. Обязательные поля отмечены *

Вы можете использовать это HTMLтеги и атрибуты: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>