Компонент ListBox (стр. Standard палітри компонентів)

Цей компонент являє собою список вибору. Цей список відображає дані, з яких користувач може вибрати один або кілька елементів. ListBox являє собою набір елементів, занумерувати з 0.

Основна властивість ListBox - це Items. Заповнити його під час проектування можна, натиснувши кнопку з трьома крапками близько цієї властивості в Інспектора Об'єктів. Програмно додати новий елемент у список можна за допомогою методу Add.

приклад:

ListBox1.Items.Add ('Новий елемент списку');

Отримати доступ до необхідного елементу списку можна так:

ListBox1.Items [номер необхідного елемента];

Очистити програмно список можна методом Clear.

приклад:

ListBox1.Clear;

У компоненті ListBox властивість MultiSelect дозволяє користувачеві зробити множинний вибір. Якщо MultiSelect = False (за замовчуванням), то користувач може вибрати тільки один елемент зі списку. У цьому випадку можна дізнатися індекс вибраного елементу з властивості ItemIndex, доступного тільки під час виконання.

procedure TForm1.ListBox1Click(Sender: TObject);

var i:integer;

begin

i:=ListBox1.ItemIndex;

case i of

0:showmessage(ListBox1.Items[0]);

1:showmessage(ListBox1.Items[1]);

2:showmessage(ListBox1.Items[2]);

3:showmessage(ListBox1.Items[3]);

end;

end;

Властивість Sorted дозволяє впорядкувати список за алфавітом. Якщо Sorted = True, то нові рядки додаються не в кінець, а за алфавітом.

Щоб програмно проаналізувати, який елемент даного списку вибрав користувач, можна скористатися властивістю Selected [Index: Integer]: Boolean;

приклад:

procedure TForm1.ListBox1Click(Sender: TObject);

var i:integer;

begin

for i:=0 to 3 do

if ListBox1.Selected[i]=true then showmessage(ListBox1.Items[i]) ;

end;

2. Хід роботи:

34. постанова задачі;

35. проектування форми;

36. побудова проекту.

3. Висновок

ЛАБОРАТОРНЕ ЗАНЯТТЯ №_17____

Модуль (тема): побудова та налагодження програм з використанням компонентів StatusBar, Timer, Image.

Мета: навчитися складати та налагоджувати програми з використанням компонентів StatusBar, Timer, Image.

Оснащення: персональний комп’ютер, середовище програмування Delphi

План проведення лабораторного заняття:

• опитування;

• виконання роботи за індивідуальними завданнями.

Питання для вхідного контролю:

31. призначення компоненту StatusBar;

32. властивість AutoHint;

33. властивість SimplePanel;

34. властивість SizeGrip;

35. властивість SimpleText;

36. властивість Text;

37. властивість Bevel;

38. призначення компоненту Timer;

39. властивість Interval;

40. як виконати запуск програми таймер;

41. призначення компоненту lmage;

42. призначення властивості AutoSize;

43. призначення властивості Center;

44. призначення властивості Picture.

Домашнє завдання:

Л1,с.334 – 336, 400 - 403.

Інструкція проведення лабораторної роботи

МЕТА РОБОТИ: навчитися будувати та налагоджувати програми з використанням

компонентів StatusBar, Timer, Image

НЕОБХІДНЕ ОБЛАДНАННЯ: 1) Комп’ютер IBM PC/AT, середовище Delphi

СКОРОЧЕНІ ТЕОРЕТИЧНІ ВІДОМОСТІ

Компонент StatusBar (стр. Win32 палітри компонентів)

Цей компонент призначений для створення рядка стану, яка розташовується в нижній частині вікна.

Властивість AutoHint визначає, відображається чи ні спливаюча підказка в рядку стану. Властивість SimplePanel визначає, чи включає смуга стану одну або безліч панелей. Якщо SimplePanel = True, то вся смуга стану являє собою єдину панель, текст якої задається властивістю SimpleText. Якщо ж SimplePanel = False, то смуга стану є набором панелей задаються властивістю Panels. У цьому випадку властивість SizeGrip визначає, чи може користувач змінювати розміри панелей в процесі виконання додатку. Властивості панелей можна задавати редактором наборів, який викликається клацанням на кнопці з трьома крапками навпроти властивості Panels в Інспектора Об'єктів або подвійним клацанням на розміщеної рядку стану.

При переміщенні по панелям в редакторі наборів ви будете бачити їх властивості.

Основна властивість кожної панелі - Text, в яке заноситься відображається в панелі текст. Властивість Width задає ширину панелі, Alignment - вирівнювання тексту (taCenter - по центру, taLeftJustify - по лівому краю панелі, taRightJustify - по правому краю). Властивість Bevel визначає оформлення панелі (pbNone - плоска, pbLowered - увігнута, pbRaised - опукла).

Програмний доступ до тексту окремій панелі можна здійснити через властивість Panels:

StatusBar1.Panels[0].Text:=’Ура!!!’;

Компонент Timer (стр. System палітри компонентів)

Цей компонент дозволяє задавати в додатку інтервали часу. Таймер - невізуальних компонент, який може розміщуватися в будь-якому місці форми. Властивість Interval задає період спрацьовування таймера (в мілісекундах). Через заданий інтервал після попереднього спрацювання або запуску програми таймер спрацьовує, викликаючи подія OnTimer. У обробнику цієї події записуються необхідні операції.

Якщо задати Interval = 0 або Enabled = False, то таймер перестає працювати. Щоб запустити відлік часу треба або задати Enabled = True, якщо встановлене позитивне значення Interval, або задати позитивне значення Interval, якщо Enabled = True.

приклад:

Якщо потрібно, щоб через 5 секунд після запуску програми закрилася форма, то треба розмістити на неї таймер, задати в ньому інтервал Interval = 5000, а в обробнику події OnTimer вставити оператор Close.

Tlmage — зображення

Компонент Tlmage служить для розміщення на формі одного з трьох підтримуваних Delphi типів зображень: растрового малюнка, значка або метафайлу. Будь-який з цих типів зображень міститься в центральній властивості компонента-Picture. Властивість Canvas відкриває доступ до канві, за допомогою якої при необхідності програма може відредагувати растрове зображення (але не значок або метафайл!).

Ось як можна створити нескладну програму (проект Chap_16 \ TImage \ Image-Demo.dpr) перегляду зображень.

1. Помістіть на форму панель TPanel, очистіть її властивість Caption і введіть значення alBottom в властивість Alignment - панель займе нижню частину форми.

2. Розмістіть на панелі кнопку TButton з написом Загрузить.

3. На вільне місце форми (над панеллю) помістіть компонент Tlmage і встановіть в його властивість Align значення alClient.

4. На будь-яке місце (Tlmage, TPanel або навіть TButton) помістіть компонент TOpenPictureDialog (вкладка Dialogs палітри компонентів) - з його допомогою користувач вашої програми зможе розшукати потрібний файл з зображенням.

5. Для кнопки Buttonl напишіть наступний обробник події OnClick:

procedure TForml.ButtonlClick(Sender: TObject);

begin

if OpenPictureDialogl.Execute then

begin

Imagel. Picture .LoadFromFile

(OpenPictureDialogl.FileName);

Imagel. Stretch := True

end

end;

Зауважу, що показаний нижче оператор масштабує зображення так, щоб воно займало всю робочу область Tlmage:

Imagel. Stretch := True

Властивості компонента Tlmage перераховані в табл.