0:MessageDlg('Внимание! Не выбран ни один цвет!',mtInformation,[mbOk],0);

1: begin

MessageDlg('Выбран синий цвет',mtInformation,[mbOk],0);

Form1.Color:=clNavy;

end;

2: begin

MessageDlg('Выбран желтый цвет',mtInformation,[mbOk],0);

Form1.Color:=clYellow;

end;

3: begin

MessageDlg('Выбран зеленый цвет',mtInformation,[mbOk],0);

Form1.Color:=clGreen;

end;

end;

end;

Жирным здесь выделены строчки, которые вам придется набрать самостоятельно.

28. Добавьте в программу обработчик события OnCloseQuery для вашей формы (компонент Form):

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

CanClose:=MessageDlg('Вы уверены, что хотите екратить?',mtConfirmation,[mbYes,mbNo],0) = IDYES;

end;

З адание 2 (для самостоятельного выполнения)

Создайте и разработайте новый проект для программы расчета функции в

з ависимости от желания пользователя. Визуальный интерфейс вашей программы может быть подобен рис.1. Для вывода результата можете использовать свойство Caption компонента Label3

Рис.1. Примерный вид интерфейса

Задание 3 (дополнительное для самостоятельного выполнения)

Создайте приложение для расчета значений в зависимости от выбранной операции, используя компонент RadioGroup. Для выбора операции должно использоваться свойство ItemIndex компонента RadioGroup.

Визуальный интерфейс вашей программы может быть подобен следующему:

Содержание отчета:

7. Постановка задачи

8. Тексты процедур – обработчиков событий, разработанных в приложении Delphi

Контрольные вопросы:

7. Для чего используется визуальный компонент GroupBox?

8. На какой вкладке палитры компонентов расположен компонент GroupBox?

9. Для чего используется визуальный компонент RadioButton?

10. На какой вкладке палитры компонентов расположен компонент RadioButton?

11. Каково назначение свойства Checked компонента RadioButton?

12. С помощью какой функции на экран выводится диалоговое окно с сообщением?

Литература:

5. В.Попов. Паскаль и Дельфи.— СПб.: Питер, 2003.

6. Фаронов В.В. Система программирования Delphi. – СПб.: БХВ-Петербург, 2003.

Практическая работа № 5 Использование визуальных компонентов Delphi для работы со списками –

ListBox, ComboBox

Цель работы:

9. Получить практические навыки работы с ветвящимися алгоритмами в Delphi.

10. Усвоить применение компонента ListBox.

11. Усвоить применение компонента ComboBox.

Краткие теоретические сведения

Список ListBox (вкладка Standard)добавляется к форме приложения точно так же, как и другие компоненты.

В программе чаще всего используются два свойства компонента ListBox: Items и ItemIndex. Свойство Items содержит элементы списка. Список, выводимый в поле списка, может быть сформирован во время создания формы приложения или динамически, во время работы программы. Для формирования списка во время создания формы приложения надо в форме выделить поле списка, затем в окне Object Inspector выбрать свойство Items и щёлкнуть на кнопке редактора списка строк. В появившемся окне Sting list editor (редактор списка строк) следует набирать список, поместив каждый элемент списка на новой строке.

Ввод очередного элемента списка должен заканчиваться нажатием кнопки <Enter>. После ввода всех элементов списка нужно щёлкнуть на кнопке ОК.

Свойство ItemIndex во время работы программы содержит номер выбранного элемента списка. Если ни один элементов списка не выбран, то его значение равно минус единице, если выбран первый компонент, то его значение равно нулю, для второго 1 и т.д.

Комбинированный (раскрывающийся) список ComboBox Размещен на закладке Standar и представляет собой комбинацию списка ListBox и текстового поля Edit. Поэтому большая часть свойств и методов заимствованы у этих компонентов.

Основные свойства компонента ComboBox:

Items — содержит набор элементов списка;

ItemIndex — содержит индекс выбранного элемента списка.

Формирование списка ComboBox выполняется аналогично формированию списка ListBox.

Задание 1.

Разработать программу перевода фунтов в кг в зависимости от страны придерживаясь следующей формы

Порядок выполнения работы

29. Расположите на форме следующие компоненты: Label1, Label2, Label3, Label4, Edit1, Button1, ListBox1. Переименуйте соответственно заголовки компонентов.

30. Для ListBox1 сформируйте список одним из способов.

Первый способ формирования списка: Свойству Items внесите элементы списка. Для формирования списка во время создания формы приложения надо в форме выделить поле списка, затем в окне Object Inspector выбрать свойство Items и щёлкнуть на кнопке редактора списка строк. В появившемся окне Sting list editor (редактор списка строк) следует набирать список, поместив каждый элемент списка на новой строке.

Россия

Австрия

Англия

Германия

Дания

Исландия

Италия

Нидерланды

Другой способ формирования списка: Список, выводимый в поле списка, может быть сформирован во время создания формы приложения или динамически, во время работы программы

procedure TForm1.FormCreate(Sender: TObject);

begin

{

ListBox1.items.add('Россия');

ListBox1.items.add('Австрия');

ListBox1.items.add('Англия');

ListBox1.items.add('Германия');

ListBox1.items.add('Дания');

ListBox1.items.add('Исландия');

ListBox1.items.add('Италия');

ListBox1.items.add('Нидерланды');

}

ListBox1.itemindex:=0;

end;

31. Создайте обработчик событий для компонента Button1 onClick

procedure TForm1.Button1Click(Sender: TObject);

var

funt:real; { вес в фунтах }

kg:real; { вес в килограммах }

k:real; { коэффициент пересчета }

begin

case ListBox1.ItemIndex of

0: k:=0.4059; { Россия }

1: k:=0.453592;{ Англия }

2: k:=0.56001; { Австрия }

3..5,7:k:=0.5; { Германия, Дания, Исландия, Нидерланды }

6: k:=0.31762; { Италия }

end;

funt:=StrToFloat(Edit1.Text);

kg:=k*funt;

label4.caption:=Edit1.Text + ' фунт(а/ов) - это ' + FloatToStrF(kg,ffFixed,6,3)+ 'кг.';

end;

end.

32. Сохраните форму и проект (File / Save all)

33. Выполните Ваш проект (Run / Run)

Задание 2 (для самостоятельного индивидуального выполнения)

— получите у преподавателя.

Содержание отчета:

9. Постановка задачи

10. Тексты процедур – обработчиков событий, разработанных в приложении Delphi

Контрольные вопросы:

13. Для чего используется визуальный компонент ListBox?

14. На какой вкладке палитры компонентов расположен компонент ListBox?

15. Чем отличается визуальный компонент ComboBox от компонента ListBox?

16. На какой вкладке палитры компонентов расположен компонент ComboBox?

17. Каково назначение свойства Items компонентов ListBox и ComboBox?

18. Каково назначение свойства ItemIndex компонентов ListBox и ComboBox?

Литература:

7. В.Попов. Паскаль и Дельфи.— СПб.: Питер, 2003.

8. Фаронов В.В. Система программирования Delphi. – СПб.: БХВ-Петербург, 2003.