Практическая работа №1 по DELPHI

Практическая работа № 1

Компоненты Delphi

Цель: познакомиться с основными событиями, методами и свойствами стандартных компонентов Delphi; приобрести навыки написания обработчиков событий для компонентов.

ЗАДАНИЕ И ВЫПОЛНЕНИЕ РАБОТЫ:

1. Запустите среду программирования Delphi.

2. Расположите на форме компоненты, приведённые на рисунке.

2.1 Панель Panel (вкладка Standard).

Компонент Panel представляет собой контейнер общего назначения. Его свойство Caption отображается в виде текстовой строки и может использоваться для вывода сообщений. Компоненты этого класса часто помещаются на форму для того, чтобы располагать вставленные в них дочерние

компоненты вдоль одной из сторон окна независимо от изменения размеров этого окна. Компонент имеет развитые средства создания различных эффектов трёхмерности за счёт использующихся в нём двух кромок - внешней и внутренней (свойства BevelOuter и Bevellnner ).

1. Объект Shape (вкладка Additional).

С помощью компонента Shape возможно нарисовать одну из простейших геометрических фигур: stRectangle - прямоугольник; stSquare - квадрат;

stRoundRect - скруглённый прямоугольник; stRoundScuare - скруглённый квадрат; stEllipse - эллипс; stCircle - круг. Вид геометрической фигуры определяется свойством Shape. Цвет объекта задаётся свойством Brush.Color.

1. Две кнопки Button (вкладка Standard).

Кнопки TButton широко используются для управления программами. Для этого, как правило, используется обработчик события onClick данного компонента.

1. Таймер Timer (вкладка System).

1. 

3. Компонент TTimer относится к невизуальным компонентам и служит для отсчёта интервалов реального времени. Его свойство Interval определяет интервал времени в миллисекундах, который должен пройти от включения таймера до

1. наступления события onlimer. Таймер включается при установке значения Тrue в его свойство Enabled. Раз включённый таймер всё время будет генерировать события onTimer, пока его свойство Enabled не примет значение False.

2. Комбинированный список ComboBox (вкладка Standard).

1. 

2. ComboBox представляет собой комбинацию списка TListBox и редактора TEdit и поэтому большинство его свойств и методов заимствованы у этих компонентов.

1. Существуют 5 модификаций компонента, определяемые его свойством Style: csSimple, csDropDown, csDropDownList, csOwnerDrawFixed и csOwnerDrawVariable. В первом случае список всегда раскрыт, в остальных он раскрывается после нажатия кнопки справа от редактора. В модификации csDropDownList редактор работает в режиме отображения выбора и его нельзя использовать для ввода новой строки (в других модификациях это возможно). Свойство DropDownCount определяет количество элементов списка, появление которых ещё не приводит к необходимости прокрутки списка. Свойство DroppedDown определяет, раскрыт ли в данный момент список, что позволяет программно управлять состоянием списка. Событие onDropDown происходит при изменении состояния списка.

2. Редактор Edit (вкладка Standard).

1. 

2. Компонент класса TEdit представляет собой однострочный редактор текста. С его помощью можно вводить и/или отображать достаточно длинные строки.

1. Контейнер для размещения зависимых переключателей RadioGroup (вкладка Standard).

1. 

2. Каждый размещаемый в компоненте переключатель помещается в список Items и доступен по индексу. Свойство Columns определяет количество столбцов

1. переключателей. Свойство Itemlndex содержит индекс выбранного переключателя. Индекс первого элемента: 0.

   1. Три метки Label (вкладка Standard).

1. 

2. Компоненты класса TLabel предназначены для размещения на форме различного рода текстовых надписей.

1. Создаваемый вами проект должен реализовывать следующие функции:

   1. Автоматическое перемещение объекта Shape в границах объекта-контейнера Panel с отражением от его сторон.

   2. Выбор формы объекта Shape из списка компонента ComboBox.

   3. Указание скорости перемещения объекта Shape в компоненте Edit

   4. Выбор цвета компонента Shape с помощью компонента RadioGroup.

   5. Отображение текущих координат объекта Shape с помощью двух меток Label.

1. Задание начальных свойств для компонента Shape:

   1. Установите для компонента Shape ширину=45 и высоту=35.

1. Задание начальных свойств и обработчиков для компонента ComboBox:

   1. Установите необходимые надписи на форме, кнопках, панели и метках. (С помощью первой кнопки движение объекта Shape будет начинаться, а с помощью второй - прекращаться).

   2. С помощью свойства Items компонента ComboBox определите перечень форм (но русском языке!), которые может принимать объект Shape. (Последовательность форм на английском языке: stRectangle, stSquare, stRoundRect, stRoundSquare, stEllipse, stCircle).

   3. Выберите подходящее событие для компонента ComboBox и напишите его обработчик, с помощью которого будет меняться форма объекта Shape. Это можно сделать как минимум двумя способам:

      1. Первый способ: Для этого достаточно выполнить следующее присвоение:

1. Shapel.Shape:=TShapeType(HOMep выбранного элемента),

2. где TShapeType - уже существующий в Delphi массив, следующего вида:

3. TShapeType = (stRectangle, stSquare, stRoundRect, stRoundSquare, stEllipse, stCircle);

1. Второй способ: Использовать оператор выбора CASE для проверки того, какая

1. строка из ComboBox была выбрана, и в зависимости от этого устанавливать свойство Shape компонента Shape, например:

3. Case ComboBoxl.Itemlndex of

4. 1: Shape1. Shape := stRectangle; {it m.d.)

1. Запустите проект на выполнение и проверьте, меняется ли форма объекта Shape при выборе соответствующей строки из ComboBox. Если да, то можете переходить к следующему шагу.

1. Задание начальных свойств и обработчиков для компонента RadioGroup:

   1. Задайте подходящий заголовок для компонента.

   2. Определите, с помощью свойства Items укажите цвета, который сможет принимать объект Shape.

   3. Задайте количество столбцов для расположения списка.

   4. Напишите обработчик события onClick для компонента RadioGroup, в котором бы изменялся цвет объекта Shape на тот, который выбрал пользователь (см. описание объекта Shape- и RadioGroup для того чтобы определить какими свойствами компонента необходимо воспользоваться). При написании обработчика рекомендуется использовать оператор выбора CASE.

   5. Запустите проект на выполнение и проверьте, меняется ли цвет объекта Shape при выборе соответствующей строки из RadioGroup. Если да, то можете переходить к следующему шагу.

2. Задание начальных свойств и обработчиков для компонента Timer:

   1. Установите свойство Enabled в состояние False, а свойство Interval = 10.

   2. Перейдите в окно инспектора кода, найдите вверху текста строку:

1. var

2. Forml: TForml;

3. Добавьте после этой строки описание двух переменных DX и DY типа integer. Это будут глобальные переменные, хранящие шаг, с которым объект Shape будет перемещаться внутри контейнера Panel.

1. Внесите в обработчик события компонента Timer следующий код:

1. with Shapel do begin

2. if (Leftor (Left+Width=Panell. Width) then dx:=-dx;

3. Left:=Left+dx;

4. if (Topor (Top+Height=Panell.Height) then dy:=-dy;

5. Top:=Top+dy;

6. end:

7. Самостоятельно разберитесь в назначении этих команд.

1. Задание начальных свойств н обработчиков для формы Form:

   1. Задайте для формы подходящие размеры.

   2. При создании формы, глобальным переменным DX и DY должны присваиваться начальные значения, равные 5. Создайте необходимый обработчик события, реализующий эти действия.

2. Задание начальных свойств и обработчиков для кнопок Button:

   1. Введите необходимые надписи и тип шрифта для кнопок.

   2. При щелчке по первой кнопке компонент Timer должен активизироваться, при щелчке на второй - деактивироваться. Создайте соответствующие обработчики событий для кнопок, (см. описание компонента Timer).

   3. Запустите проект на выполнение и попробуйте запустить и остановить движение объекта Shape с помощью кнопок. Если это удалось, то можете переходить к следующему шагу.

3. Задание начальных свойств и обработчиков для компонента Edit:

   1. Удалите текст из компонента, чтобы при запуске программы строка с именем объекта не отображалась на экране.

   2. Создайте обработчик события onKeyPress для этого компонента. В обработчике должны выполняться следующие действия: если нажата клавиша Enter (код клавиши: #13), то присвоить переменным DX и DY значение, введённое пользователем в компонент Edit. (Рекомендуется вводить значения в диапазоне от 1 до 20).

   3. Запустите проект на выполнение и попробуйте изменить скорость перемещения объекта Shape с помощью значений, вводимых в поле компонента Edit. Если это удалось, то можете переходить к следующему шагу.

4. Отображение координат объекта Shape с помощью меток Label:

   1. В обработчик события onTimer компонента Timer добавьте код, позволяющий отображать текущие координаты объекта Shape.

   2. Запустите проект на выполнение и попробуйте выполнить все реализованные вами функции.

5. Дополнительное задание:

   1. Объект Shape должен автоматически менять цвет при «ударе» о границу панели.

   2. 0бъект Shape пропадает и появляется на экране по желанию пользователя.

   3. В контейнере перемещаются 2 объекта Shape.

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

1. Расскажите о компонентах Delphi, использованных вами при выполнении данной практической работы.

2. В чём отличие визуальных от невизуальных компонентов? Использовались ли невизуальные компоненты при выполнении данной практической работы (если да, то какие)?

3. Как определить, какую строку по счёту выбрал пользователь из компонента ComboBox? А как определить содержимое этой строки?

4. Каким компонентом нужно воспользоваться, чтобы каждые 5 секунд выдавать на экран какое- либо сообщение? Какое событие этого компонента необходимо использовать и что нужно написать в обработчике?

5. В чём отличие локальных переменных от глобальных?

6. Что нужно сделать, чтобы строки в компоненте RadioGroup отображались на экране в 3 столбика?

7. С помощью какого свойство можно программно изменить цвет компонента TShape? Какие значения можно передавать этому свойству?

8. Расскажите, по какому принципу осуществляется перемещение объекта TShape по экрану?

9. Какое свойство компонента ComboBox и как нужно изменить, чтобы запретить пользователю вводить свои варианты?

10. Для чего используются следующие свойства компонентов: Enabled, Visible?