14.2 Теоретичне підґрунтя

Компонента ListBox – список, дає змогу вибрати один із текстових рядків, що зберігаються в списку. Список рядків можна сформувати як наперед, під час проектування форми в інспекторі об’єктів, так і під час виконання програми.

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

14.3 Хід виконання роботи

14.3.1 Перейменувати вікно форми, наприклад “Ремонт верстатних агрегатів”.

14.3.2 Ввести на форму компоненту BitBtn і відповідним чином запрограмувати подію закриття прикладної програми.

14.3.3 Ввести у форму компоненту MainMenu з кнопками “Вихід” і “Про програму”.

14.3.4 Запрограмувати кнопку “Про програму”. Натискання на кнопці “Про програму” передбачає появу нового вікна “AboutBox”, в якому інформують про автора програми і інші можливі дані.

14.3.4.1 На головному вікні середовища Delphi на панелі інструментів підбирають ще одну компоненту – вікно File >New > Other >випадаюче вікно NewItems > Forms > AboutBox.

!4.3.4.2 У вікні AboutBox здійснюють зміни властивостей Caption компонент вікна. Наприклад (зверху вниз): “Про програму”, “Версія01”, “Сидорчук.В”, 2003.

14.3.4.3 Програмують кнопку ОК вікна “Про програму” так, щоб натискання на неї закривалось вказане вікно. Отже клацнувши по кнопці, тим самим відкривається інше вікно програмного коду (Unit2), де слід запрограмувати команду Сlose.

14.3.4.4 Для того, щоб в прикладній програмі з’являлось віно “Про програму” клацають по відповідній кнопці і в програмному коді записують команду AboutBox.Show.

14.3.5 Вставляють у вікно форми компонент ListBox і змінюють його властивість Items, вкладаючи до списку назви верстатів, наприклад:

вертикально-фрезерний,

токарно-гвинторізний

координатно-розточний

вертикально-свердлильний

плоско-шліфувальний

14.3.6 Вставляють у вікно форми компоненту ComboBox. До значень властивості Items можна вписати такі:

коробка швидкостей

коробка подач

головний привід

шпиндель

силова головка

задня бабка

повздовжній супорт

поперечний супорт

поворотний стіл

14.3.7 Вставляють у форму компоненту Panel.

14.3.8 Програмують подію вибору назви верстату, клацнувши по компоненті ListBox.

procedure TForm1.ListBox1Click (Sender: TОbject);

begin

if (ListBox1.ItemIndex>=0) then

Panel1.Caption:= ListBox1.Items[ListBox1.ItemIndex];

end;

14.3.9 Поруч розміщають компоненту Label2.

14.3.10 Програмують подію, пов’язану з вибором агрегатів, що підлягають ремонту. Клацнувши по компоненті ComboBox1, добиваються відкриття програмного коду і вписують команду

Label1.Caption:=ComboBox1.Text;

14.3.11 Для більш дружнього оформлення програми, можна додатково ввести підписи, наприклад :”вибір верстату”, “вибір агрегатів, що підлягають ремонту” і т.д.

14.3.12 Задають процедуру зміни кольору Panel1 в залежності від вибору верстату:

сase ListBox1.ItemIndex of

0: Panel1.Color:=clRed;

.......................................

end;

14.3.13 Запускають програму і перевіряють іі дієвість, при відсутності помилок- записують у відповідний файл.