Досі ми вводили дані з клавіатури, використовуючи текстові поля Edit. Реалізувати ввід рядків з клавіатури можна й іншим способом – за допомогою команди InputBox. Якщо команда ShowMessage виводить дані на екран, то команда InputBox призначена для вводу даних.
Створіть форму, на якій розмістіть лише одну кнопку (Button).
Створіть обробник події-щиглика по кнопці Button1. В обробнику напишіть наступне:
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
s:=InputBox('Введите заголовок окна','Заголовок окна:','byka');
Form1.Caption:=s;
end;
Запустіть програму. При щиглику по кнопці відбувається наступне: з’являється вікно, в якому користувач може ввести довільний рядок. Це вікно виводиться командою InputBox:
| Другий параметр
Напис у вікні
| |
Дефолт-значення, або значення за умовчанням – це таке значення рядка, яке буде у випадку, коли користувач нічого не введе, а просто натисне ОК. Якщо третій параметр – дефолт-значення – не порожній, тобто не дорівнює '' , то значення за умовчанням з’являється в рядку вводу вікна, як показано на малюнку.
Зазвичай другий та третій параметри команди встановлюються порожніми. Наприклад, команда
InputBox('Введите заголовок окна','','');
виведе вікно, що показано на мал. нижче:
Завдання. Дано зображення вікон, які виводяться командою InputBox. Напроти кожного зображення напишіть команду, яка це вікно виводить.
| InputBox( ____________________, ____________________,
___________________ )
| 
| InputBox( ____________________, ____________________,
___________________ )
|
| InputBox( ____________________, ____________________,
___________________ )
| 
| InputBox( ____________________, ____________________,
___________________ )
|
| InputBox( ____________________, ____________________,
___________________ )
| 
| InputBox( ____________________, ____________________,
___________________ )
|
| InputBox( ____________________, ____________________,
___________________ )
| 
| InputBox( ____________________, ____________________,
___________________ )
|
