Основне меню  

   

Реклама  

Скачуйте відеуроки для створення сайту за допомогою SMS Joomla 

реклама

 

   

Ми в Facebook  

Калькулятор расчета пеноблоков смотрите на этом ресурсе
Все о каркасном доме можно найти здесь http://stroidom-shop.ru
Как снять комнату в коммунальной квартире смотрите тут comintour.net
   

Реклама в мережі  

   

Статистика  

Користувачі
1
Статті
168
Перегляди статей
397298
   

Пошук по сайту  

   

Ми знаходимось тут  

   

Випадкове фото  

   

Наш відеоканал  

   

Відвідування сайту  

Яндекс.Метрика

 

   

Посібник Delphi  

ДОСТУПНИЙ ВИКЛАД,

ЦІКАВІ ПРИКЛАДИ, ВИХІДНІ КОДИ.

ЦІНА ДИСКА З МАТЕРІАЛАМИ - 500 грн. 

Якщо ваша карта обслуговується ПриватБанком тоді переведіть потрібну суму через Приват24 на карту    5168 7573 0556 9925 або натисніть на посилання "Перейти до оплати", щоб здійснити миттєвий платіж без комісії. Перейти до оплати!

 Звертайтесь за адресою еmail:kuzbyt@ukr.net

 
   

Відеокурс по С++  

   

Рекомендуємо:  

   

Ми в контактах  

   

Сайти  

Українські уроки про ІТ

Єдина Країна! Единая Страна!

 

Українські уроки про програмування

 

 
   

На попередньому уроці ми розповідали про організацію введення і виведення даних за допомогою вбудованих діалогових вікон InputBox, ShowMessage.

На цьому уроці ми навчимося створювати додатки, в яких використовуються кілька форм.

Крім того ми вивчимо новий компонент TRadioGroup для створення груп перемикачів. Навчимося застосовувати умовний оператор для аналізу стану перемикачів.

Для початку вам потрібно ознайомитись з новим компонентом TRadioGroup його призначенням і властивостями.

 Компонент TRadioGroup (Група перемикачів) знаходиться на закладці Standard.

 

Компонент TRadioGroup (Група перемикачів) являє собою групу перемикачів, в якій одночасно може бути виділений тільки один перемикач. Коли користувач встановлює один з перемикачів групи, всі інші автоматично скидаються.

Таким чином, будь-які два перемикача можуть бути встановлені одночасно, тільки якщо вони розташовані в різних контейнерах, наприклад в різних групах перемикачів.

Радіокнопки в контейнері TRadioGroup створюються через властивість Items. У групі перемикачів кожен рядок властивості Items ставитися до окремого перемикача і служить його заголовком.

 

Властивість

Опис

Caption

Заголовок групи

Columns

Кількість стовпців в групі перемикачів. За замовчуванням =1

ItemIndex

Визначає номер (починаючи з 0) перемикача, який є виділеним в групі. Якщо спочатку не виділено ні один перемикач, то значення властивості дорівнює -1.

Item

Містить список заголовків перемикачів групи.

Для їх введення заголовків передбачений спеціальний редактор, який викликається клацанням на спеціальній кнопці  , розташованої праворуч в рядку, яка описує властивість Items.

  Властивість Name містить префікс grp, який повідомляє про те, що це група перемикачів.

 Тепер вивчимо оператор розгалуження if- then.

Один з найважливіших операторів Паскаля - умовний оператор. Він дозволяє змінювати порядок виконання операторів в залежності від деякої умови, що представляє собою логічний вираз типу Boolean. Якщо значення дорівнює True, то виконується одна група операторів, якщо False, то інша група операторів або не виконується нічого.

У мові Паскаль є два умовних оператора: if (оператор розгалуження) і case (оператор вибору). Оператор if забезпечує вибір з двох альтернатив, оператор вибору case дозволяє зробити вибір з довільного числа наявних варіантів.

 Умовний оператор If (оператор розгалуження).

Повна форми умовного оператора називається If-then-else, має вигляд:

 If умова

Then [оператор1]
Else [оператор2];

Якщо в якості оператора повинна виконуватися серія операторів, то вони об'єднуються в операторні дужки Begin-End.

If  then
   Begin
   [оператори1]
   End
Else
   begin
   [оператори2]
  End;

Слова if (якщо) і Then (то) -зарезервовані.

Зауваження. Перед ключовим словом else (інакше) крапка з комою не ставиться, вона ставиться після всього оператора If.

Умова є логічні вираження. Прості умови записуються у вигляді рівності або нерівностей. У складних умовах кілька простих умов об'єднуються за допомогою логічних операцій or, and. В цьому випадку прості умови полягають в круглі дужки.На малюнку показана блок-схема повної форми оператора.

 Алгоритм виконання повного умовного оператора:

Перевіряється значення логічного виразу, записаного в умови після слова If Якщо умова істинно (значення виразу умова одно True), то виконується Серія1, вказаний після слова Then. Якщо умова помилкова, то виконується Серія2, записана після слова Else.

Неповна форма умовного оператора називається if-then, має вигляд:

If умова
Then [оператор];

Якщо в якості оператора повинна виконуватися серія операторів, то вони об'єднуються в операторні дужки Begin-End.

If умова Then 
Begin
[оператори]
End;

У неповному розгалуженні гілка Else відсутній. На малюнку показана блок схема оператора if-then. 

 Додавання нової форми

Компонент форма є об'єктом, відсутнім на палітрі компонентів. Щоб додати нову форму в проект, потрібно вибрати команду Файл - Створити форму або натиснути кнопку Створити форму на панелі інструментів.

 

Появиться нова порожня форма. Називатися вона буде Form2, а відповідний їй файл з вихідними текстами додасться в Редактор коду на нову вкладку Unit2.

 

Після додавання нової форми, проект потрібно зберегти. Для показу форм можна використовувати один з двох методів: Show або ShowModal.Метод Show призначений для показу форми в звичайному вікні, а ShowModal - для показу форми в модальному вікні. Різниця між цими двома видами вікон полягає в тому, що між звичайними вікнами можна переміщатися довільним способом, а перейти в інше вікно з модального вікна можна тільки після його закриття.

Показ форми як звичайного вікна

Щоб викликати форму в звичайному вікні використовують її метод Show. Він показує форму, переміщує її на передній план екрану і робить активною.

У прикладі показаний виклик форми Form3 в звичайному вікні після натискання кнопки Button1.

procedure TForm1.Button1Click (Sender: TObject);

begin

  Form2.Show;

end;

Показ форми як модального вікна

Щоб викликати форму в модальному вікні, треба використовувати метод ShowMoal. Переключитися з модального вікна на інші вікна не вдасться, поки воно не буде закрито. Приклад показу форми Form3 в модальному вікні після натискання кнопки Button2.

procedure TForm1.Button2Click (Sender: TObject);

begin

  Form3.ShowModal;

end;

Модальні вікна добре підходять для завдання всіляких налаштувань, виконання введення проміжних значень, відображення результатів.Тепер у нас є все необхідне, для того щоб створити свій перший додаток з кількома формами.

Проект «Три форми»

Завдання. Створити додаток з трьома формами: Головна, Опції і Про програму. Форму Опції викликати в звичайному вікні. Для виклику форми Про програму використовувати модальне вікно. На малюнку показані головна форма і підформи нашого нового проекту.

 Хід виконання проекту

1. Створіть новий додаток, збережіть файли проекту в папці «Три форми».

2. Додайте на формі Form1 3 кнопки, змініть властивості об'єктів відповідно до таблиці.

 

Компонент

Властивість

Значення

Форма

Name
Caption

frmGeneral
Головна

Кнопка 1

Caption

Опції

Кнопка 2

Caption

Про програму

Кнопка 3

Caption

Закрити

3. Створіть формуForm2. Для цього виберіть в меню Файл команду Створити форму. На екрані з'явитися нова форма Form2, в редакторі коду - нова вкладка unit2.

4. Встановіть на формі компонент RadioGroup для вибору кольору, напис, поле виведення, дві кнопки. Налаштуйте властивості об'єктів відповідно до таблиці.

 

Компонент

Властивість

Значення

Форма

Name
Caption

frmOptions
Опції

RadioGroup

Caption
Items

Колір головної форми
Ввести список

Label1

Caption

Заголовок головного вікна

Edit1

Text

Пусто

Button1
Button2

CaptionCaption

ОК
Вихід

5. Після розміщення на формі компонента TradioGroup, що входять до нього перемикачі задаються перерахуванням їх назв. Ці назви в вводяться в властивість Items.

6. Так як потрібно ввести не одну рядок, а кілька, для їх введення передбачений спеціальний редактор, який викликається клацанням на спеціальній кнопці , розташованої праворуч в рядку, яка описує властивість елементи.

7. На малюнку нижче показаний редактор списку для введення назв перемикачів.

  

8. Велика текстова область вікна редактора призначена для введення назв перемикачів по одному в кожному рядку. Перехід в початок наступного рядка здійснюється при натисканні на клавіші Shift + Enter.

9. Після закінчення введення списку, натисніть на кнопку ОК, і зовнішній вигляд об'єкта RadioGroup1 на формі відразу зміниться.

10. Створіть ще одну форму - Форма Form3, вибравши команду Файл-Створити форму. На екрані з'явитися нова форма Форма Form3 а в редакторі коду - нова вкладка Unit3.

11. Додайте на form3 ОБ'ЄКТИ І КНОПКА напис. Налаштуйте властивості   

Компонент

Властивість

Значення

Форма

Name
Caption

frmAbout
Про програму

Button1

Caption

Вихід

   12.    Програмний код для форми Головна (модуль Unit1) У модулі Unit1 в розділі Implementation необхідно записати директиву uses:

uses Unit2, Unit3;
Це необхідно для того щоб модулі Unit2, Unit3 форм Опції і Про програму були видимі в головному модулі Unit1.
13. Написати обробники подій для кнопок форми Головна. Перша кнопка форми Головна (кнопка Параметри) викликає в Форму Опції з звичайному вікні допомогою методу Show.
Процедура TfrmGeneral.Button1Click (Sender: TObject);
begin
 frmOptions.Show;
end;
14. Перша кнопка форми Головна (кнопка Про програму) викликає форму Про програму в модальному вікні за допомогою методу ShowModal.
 
Процедура TfrmGeneral.Button2Click (Sender: TObject);
begin
 frmAbout.ShowModal;
end;
15. Третя кнопка форми Головна (Кнопка ОК) закриває головне вікно.
 
procedure TfrmGeneral.Button3Click(Sender: TObject);
begin
  Close;
end;

 16. Відкриваємо програмний код форми Опції (модуль Unit2) .В модулі Unit2 в розділі implementation записати директиву uses:

  uses Unit1;

Це необхідно для того щоб головний модуль Unit1 форми Головна був бачимо в цьому модулі.

17.    Створити обробник завантаження форми Опції, в який записати програмний код, що передає текст заголовка головної форми в поле Edit1.

 

procedure TFrmOptions.FormCreate(Sender: TObject);
begin
  frmOptions.Edit1.text:=frmGeneral.Caption;
end;

Кнопка ОК форми Опції. Після клацання на цій кнопці буде відбуватися зміна кольору головної форми.

procedure TFrmOptions.Button1Click(Sender: TObject);
begin
if radioGroup1.ItemIndex=0 then frmGeneral.color:=clWhite;
if radioGroup1.ItemIndex=1 then frmGeneral.color:=clRed;
if radioGroup1.ItemIndex=2 then frmGeneral.color:=clBlue;
if radioGroup1.ItemIndex=3 then frmGeneral.color:=clGreen;

end; 

18.     Кнопка Закрити форми Опції. Після клацання на кнопці Цією закривається вікно Опції.

procedure TFrmOptions.Button2Click(Sender: TObject);
begin
  close;

end;

19.    Переходимо в програмний код форми Про програму (модуль Unit3) .В модулі Unit3 в розділі implementation записати директиву uses

uses Unit1;

Модуль Unit1 форми Головна повинен бути видимий в цьому модулі. 

20. Кнопка ОК форми Про програму закриває вікно.

procedure TfrmAbout.Button1Click(Sender: TObject);
begin
  Close;

end;

21.Проект готовий. Збережіть проект і перевірте його роботу.

На цьому уроці ми створили проект, що складається з трьох форм, використовували різні методи для виклику форм: просте вікно і модальне вікно. У нашому додатку ми вперше застосували компонент RadioGroup (Група перемикачів), використовували умовний оператор для обробки вибору користувача. 

 

 

   

Поділіться з друзями

 
   

Сайт для перевірки своїх знань з програмування на сайті:http://www.quizful.net/test


 Розробка сайтів, інтернет-магазинів під ключ. Створення програмного забезпечення для обліку в магазинах,

гуртовнях, ведення власного бізнесу та інших. Написання дипломних та курсових робіт з програмування, баз даних.

 

Звертайтесь за адресою email:kuzbyt@ukr.net

 

 

© (C) Sambir, I.Kuzbyt