Лабораторна робота №16 Робота з додатковими вікнами. Об’єкти: таблиця рядків StringGrid, комбінований список ComboBox, редаговані поля Edit. Використання компоненти SpinEdit

16.1 Мета роботи: Ознайомитися із новим застосуванням компоненти ComboBox.Ознайомитися із компонентою Frame.

16.2 Теоретичні відомості

Компонента Frame може відігравати роль додаткового вікна і має майже однакові з ним властивості, однак не має властивості “Show”. Окрім звичайних властивостей, притаманних класу TFrame, ця компонента може програмуватись як у своєму власному вікні програмного коду, так і у вікні коду головного модуля.

16.3 Хід роботи

16.3.1. Завантажити середовище Дельфі.

16.3.2 Відкрити виконану роботу згідно з лабораторною роботою №15.

16.3.3 Ввести додаткові об’єкти – Memo, ComboBox1 i ComboBox2, Button1.

16.3.4 Змінити властивість Caption кнопки Button1, надавши йому значення “ Скопіювати з файлу”.

16.3.5 Змінюємо властивість об’єкта StringGrid1, додаючи до неї додатковий стовпчик, в якому відображатимуться ціни на верстaти. Подія OnClick пов’язана із кнопкою Button1 повинна викликати процедуру запису даних з файлу у комбінований список.

procedure TForm1.Button2Click(Sender: TObject);

var

i:integer;

A, B, C:string;

begin

i:=1;

while StringGrid1.Cells[1,i]<> '' do

begin

A:=StringGrid1.Cells[0,i];

B:=StringGrid1.Cells[1,i];

C:=StringGrid1.Cells[2,i];

ComboBox1.Items.Add(A + ' ' +B);{вставлені назви і марки верстатів}

ComboBox2.Items.Add(C); {в об’єкт вставлений рядки із значенням цін на верстати }

i:=i+1;

end;

end;

16.3.6 Шляхом вибору у новоствореному списку із об’єкта ComboBox1 потрібного верстату зафіксовують його дані, наприклад ціну у відповідному діалоговому вікні – Edit1. Загалом всі дані про відібрані із списку верстати можна зафіксувати у об’єкті Memo1. Процедура вибору із списку пов’язана із подією OnChange (зміна):

procedure TForm1.ComboBox1Change(Sender: TObject);

var

i:integer;

begin

Memo1.lines.Add(Combobox1.Text);{Фіксація даних про вибрані верстати}

i:=ComboBox1.ItemIndex;

Combobox2.ItemIndex:=i;{Вибір значення ціни вибраного у ComboBox1 верстату}

Edit1.Text:=ComboBox2.Text;{фіксація вибраної ціни}

end;

16.3.7 Для створення можливості вибору кількох екземплярів верстатів тієї ж марки можна використати компоненту SpinEdit із палітри компонент Samples. Отже програмуємо подію OnChange вказаної компоненти, наперед вставивши компоненту Edit2:

procedure TForm1.SpinEdit1Change(Sender: TObject);

var

i, suma, suma1, cod:integer;

str1:string;

begin

val(Edit1.Text,suma1,cod);

suma:=suma1*SpinEdit1.Value; {сума дорівнює ціна(suma1) помножена на кількість верстатів}

Str(suma,str1);

Edit2.Text:=str1;

end;

16.3.8 Вставляють компоненту Frame на форму. Для цього користуються командою:File/New/Frame і кнопкою Frame, яка розміщена зліва внизу від палітри компонентів.

16.3.9 За замовчуванням компоненті, що не прив’язана до головного вікна, присвоюється імя – Frame2 і відповідний програмний код – unit2. Прив’язаній до головного вікна візуальній копії вказаної компоненти пропонується ім’я Frame21 (що означає Frame2 на вікні Form1).Ця копія запрограмовується не окремо, а в програмному коді головного вікна.(за замовчуванням unit1);

16.3.10 Змінюють значення властивості компоненти Frame - color на відмінний від кольору головного вікна і значення властивості visible на false;

16.3.11 З головного вікна запрограмовують кнопку включення цієї компоненти командою

Framе21.Visible:=Тrue;

16.3.12 Розміщують на об’єкті Frame тіж компоненти,що описані вище тільки для запису не верстатів, а агрегатів і створюють відповідний програмний код.

16.3.13 Програмують кнопку виключення фрейма.

16.3.14 Програмують на головній формі ще одне вікно редагування, в якому відображалися б загальні витрати на верстати і агрегати.

16.3.15 Запускають програму.

Комплексна лабораторна робота

Створення прикладної програми побудови точкової та групово-точкової діаграм розсіяння діаметрів шийки вала з використанням зв’язку між Windows-програмами

Лабораторна робота № 17

Технологія DDE