Практикум по Delphi для решения прикладных задач


Электронный альбом


Цель работы - создать программу, выполняющую следующие действия:

  1. После запуска программы в окне изображается рисунок, выбранный первым переключателем из раскрывающегося списка.
  2. Выбираем необходимый переключатель, рисунок из соответствующего раскрывающегося списка.
  3. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.


Описание плана разработки программы

1.      Открыть новый проект.

2.      Разместить на форме экземпляры компонентов: рамка GroupBox, переключатель RadioBatton, раскрывающийся список ComboBox.

3.      Выполнить следующие действия:

Таблица 18.

Выделенный объект

Вкладка окна

Object Inspector

Имя свойства/

имя события

Действие

Form1

Properties

Caption

Установка имени формы «Интерактивный электронный альбом»

Events

OnCreate

RadioButton1Click(RadioButton1);

GroupBox1

(Вкладка Standard)

Properties

 

Caption

Введите название «Части света»

RadioBatton1

(Вкладка Standard)

Properties

Caption

Введите название «Европа»

Checked (Включен)

Задайте значение True

Tag

Присвоить значение 0

Events

Onclick

В процедуре описать локальную переменную i.

Описать действия переключателей, используя цикл с параметром i от 0 до 5.

Для создания еще пяти переключателей можно использовать метод копирования через буфер обмена. Пока объект RadioBatton1 остается выделенным, нажмите комбинацию клавиш CTRL+C. Произойдет его копирование в буфер обмена. Теперь нажмите комбинацию CTRL+V – это команда вставки объекта из буфера обмена и Delphi автоматически изменит имя объекта – новый объект получит имя RadioBatton2.


Продолжение таблицы 18.

Выделенный объект

Вкладка окна

Object Inspector

Имя свойства/

имя события

Действие

RadioBatton2

Properties

Caption

Введите название «Азия»

Tag

Присвоить значение 5

RadioBatton3

Properties

Caption

Введите название «Африка»

Tag

Присвоить значение 10

RadioBatton4

Properties

Caption

Введите название «Северная Америка»

Tag

Присвоить значение 15

RadioBatton5

Properties

Caption

Введите название «Южная Америка»

Tag

Присвоить значение 20

RadioBatton6

Properties

Caption

Введите название «Австралия»

Tag

Присвоить значение 25

Выделите все шесть переключателей. Дайте команду Edit ® Align (Правка ® Выравнивание). Откроется окно Alignment (выравнивание). Установить слева переключатель Left Sides (Левые края), а справа Space Equally (Равные промежутки). Щелкните на кнопке OK.

GroupBox2

(Вкладка Standard)

Properties

Caption

Введите название «Города»

ComboBox1

(Вкладка Standard)

Properties

 

Style

Выбрать значение csDropDownList (Раскрывающийся список)

Events

OnChange

Image1.Picture.LoadFromFile

(ListBox2.Items [ComBox1.Tag +

ComboBox1.ItemIndex]);

Image1

(Вкладка Additional)

 

Поместить объект на рамку

ListBox1

(Вкладка Standard)

Properties

 

Visible

Задайте значение False

Items (Пункты)

Щелкнуть на кнопке построителя. Введите в список тридцать названий городов  - по пять для каждой части света.

ListBox2

(Вкладка Standard)

Properties

Visible

Задайте значение False

Items

Щелкнуть на кнопке построителя. Введите в список тридцать имен файлов, содержащих иллюстрации.

4.      Сохраните проект, запустите и протестируйте его.

Листинг подпрограммы

 

procedure TForm1. RadioButton1Click (Sender: TObject);

var i: Integer;

begin

ComboBox1.Clear;

ComboBox1.Tag := (Sender as TRadioButton).Tag;

for i := 0 to 5 do

ComboBox1.Items.Add (ListBox1.Items [ComboBox1.Tag + i]);

ComboBox1.ItemIndex := 0;

Image1.Picture.LoadFromFile (ListBox2.Items [ComboBox1.Tag]);

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

RadioButton1Click(RadioButton1);

end;

 

procedure TForm1.ComboBox1Change (Sender: TObject);

begin

Image1.Picture.LoadFromFile (ListBox2.Items [ComboBox1.Tag + ComboBox1.ItemIndex]);

end;





Начало  Назад  Вперед



Книжный магазин