Void __fastcall tForm1::Button1Click(tObject *Sender)
{ // начало функции
Button1->Font->Size = 10;
...
}; // конец функции
Методы, которые можно применить по отношению к объекту, являются по сути процедурами, находящимися в «теле» объекта, и которые выполняют наперед заданные функции. Например, к таким методам можно отнести функции создания и разрушения объекта, виртуального нажатия на кнопку, и т.д.
При действии над объектами появляются те или иные события (Events), которые вызывают подпрограммы, написанные пользователем, если есть такая необходимость. В этом случае подпрограммы называют «обработчиком события».
Некоторые события, которые появляются при действии с объектом типа «TButton» приведены в таблице 1.3.
Таблица 1.3 – Некоторые события объекта «TButton»
Событие |
Когда происходит событие |
OnClick |
При нажатии правой клавишей мыши на кнопке и последующем отпускании (Клик) |
OnMouseDown |
В момент нажатия любой клавишей мыши на кнопке |
OnMouseUp |
В момент отпускания любой клавиши мыши |
OnMouseMove |
При перемещении курсора над поверхностью кнопки |
Доступные свойства и события перечислены в инспекторе объекта при выборе соответствующего объекта на форме.
а) Свойства б) События
Рисунок 1.1 – Список свойств и событий в инспекторе объекта типа «TButton»
1.7 Пример программы пользователя
Разработаем простейшую программу – форму, которая выполняла бы следующие действия.
1.7.1 Постановка задачи
На форме располагаются три кнопки и круг. При нажатии на первую кнопку круг становится красным, на вторую – желтым и третью – зеленым. Первоначальный цвет при запуске программы – красный.
1.7.2 Подготовка формы
Необходимо поместить три объекта типа «TButton» и один объект типа «TShape» (вкладка «Additional» палитры компонентов) на форму. Затем необходимо уменьшить размер формы по контуру помещенных объектов. Форма должна выглядеть следующим образом:
Рисунок 1.2 – Форма с объектами
Свойства объектов необходимо поменять в инспекторе в соответствии с таблицей 1.4.
Таблица 1.4 – Измененные свойства объектов
Свойство |
До изменения |
После изменения |
Объект «Form1» |
||
Caption |
Form1 |
Светофор |
Объект «Button1» |
||
Caption |
Button1 |
Красный |
Объект «Button2» |
||
Caption |
Button2 |
Желтый |
Объект «Button3» |
||
Caption |
Button3 |
Зеленый |
Объект «Shape1» |
||
Name |
Shape1 |
Led |
Shape |
stRectangle |
stCircle |
Brush.Color |
clWhite |
clRed |
Форма после изменения свойств должна выглядеть следующим образом:
Рисунок 1.3 – Измененная форма
1.7.3 Алгоритм программы
Поставленная задача достаточно простая, и ее можно выполнить очень просто путем изменения цвета в подпрограммах, вызываемых при соответствующих событиях нажатий кнопок.
Но с целью облегчения понимания структуры последующих более сложных программ представим светофор в виде некого объекта, состоящего из компонентов, представленных в таблице 1.5.
Таблица 1.5 – Компоненты объекта «Светофор»
Компонент |
Тип |
Назначение |
Led |
TShape |
Индикация на форме |
LedColor |
Integer |
Индекс цвета индикатора (1,2,3) – глобальная переменная |
SetColor |
Function |
Функция установки цвета индикатора |
Алгоритм программы следующий:
1) при первой загрузке программы устанавливается индекс цвета, равным 1, и вызывается функция SetColor. Используется событие формы «Form1.OnCreate»;
2) при нажатии соответствующих клавиш устанавливается глобальная переменная LedColor и вызывается функция SetColor.