Завдання. Помістити на форму дві кнопки: Введення даних і
Вихід. Користувач повинен ввести прізвище, ім'я та вік. Для введення даних
використовувати функцію InputBox. Після закінчення введення анкетні дані
вивести в поле (КОМПОНЕНТ виведення Label).
Хід
виконання
1.
Створити новий проект. Папку проекту назвати Анкетні дані.
2.
Розмістити на формі дві кнопки і напис так, як показано на малюнку вище.
3.
Написати програмний код для кнопки Введення даних.
procedure
TForm1.Button1Click(Sender: TObject);
begin
label1.Caption:=InputBox('Ввід
анкетних даних', 'Введіть прізвище, ім’я, вік:','');
end;
4.
Написати програмний код для кнопки Вихід
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
5.
Зберегти проект. Перевірити роботу програми.
Після клацання на кнопці Введення даних має з'явитися
діалогове вікно. Введіть в нього вихідні дані.
Після натискання на клавішу Enter введені дані повинні
відобразитися на формі. Результат показаний на рисунку.
На цьому уроці ми розглянули способи організації
введення і виведення даних в середовищі Lazarus. Для введення даних ми
використовували діалогове вікно InputBox, для виведення - діалогове вікно
ShowMessage і компонент форми TLabel (Поле виведення).
Компонент TLabel встановлюється на формі під час
розробки, діалогові вікна виводяться в окремому вікні під час виконання
програми, не займають місце на формі. Для їх виведення потрібен відповідний
програмний код.
Комментариев нет:
Отправить комментарий