Приложение.

В качестве иллюстрации к вышеизложенному материалу, к курсовой работеприлагается программа, разработанная в объектно-ориентированной среде Delphi.Целью этого проекта была систематизация разных видов информации, относящейсяк одной теме – в данном случае информация о различных видах птиц. Средствавизуальной объектно-ориентированной среды Delphi позволили сделать эту работубыстро и с минимальными затратами. Ниже приводится краткое описание проекта,сам исполняемый файл прилагается на компакт-диске.Разработка проекта начиналась с главной формы (рис2.) На форме размещенывсего три объекта: Label1 класса TLabel (метка), Image1 класса TImage(изображение) и кнопка Button1 класса TButton. С помощью несложного кодапосредством этой кнопки производится переход на вторую форму: procedure TForm1.Button1Click(Sender: TObject); begin Form1.Hide;Form2.Show; end;Рис 2. Главная форма проекта «Birds»В компоненты этой формы входит объект ListBox1 (рис3.) класса TListBox –список, с помощью которого осуществляется дальнейший переход к остальнымформам программы: procedure TForm2.ListBox1DblClick(Sender: TObject); begin Form2.Hide;(Birds[ListBox1.ItemIndex])^.Show; end; Здесь используется массив Birds, который был описан ранее: const numBirds = 15;Birds: array [0..numBirds-1] of ^TForm =(@Vorob, @Cov, @Popug, @Raksh, @Gol, @Gus, @Pog, @DHP, @Zur, @Kul,лплплл@Kur, @Dyat, @DK, @Golub, @Ping); Рис3. Компонент ListBox1. В остальных формах программы с помощью несложных компонентов было размещенодовольно большое количество информации: графической, текстовой и звуковой.

Дата добавления: 2015-07-25