Основные категории событий

Главная часть программного кода приложений - это процедуры обработки пользовательских событий.

Программно-управляемые события для форм (TForm)
OnCreate
Событие происходит один раз за все время

Пример. Следующая процедура случайным образом задает размеры создаваемой формы:
procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;

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

Особое поведение формы при закрытии обеспечивает переменная Action
caNone запрет на закрытие формы.
caHide форма

Процедура, которая закрывает форму только при нажатии кнопки "Yes" в окне

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

Пример. Форма является специальной и предназначена для ввода пароля.
Форма не

Для строки ввода, используемой для указания пароля, необходимо установить свойство PasswordChar

procedure TPasswordDlg.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if Password.Text = ''
{если строка ввода

Пользовательские события
Основные группы пользовательских событий:
события мыши;
операции Drag&Drop (перетащить и бросить);
события клавиатуры.

События мыши. Действия пользователя с мышью.
Приложение может реагировать на следующие действия

Основные типы обработчиков:
OnMouseDown, OnMouseUp:
TMouseEvent = procedure (Sender : TObject; Button :

Параметры процедур:
Sender объект, на который воздействует мышью пользователь.
Button нажатая кнопка мыши: mbLeft, mbMiddle,

События клавиатуры.
Событие клавиатуры генерируется, как только будет нажата или отпущена некоторая

Windows самостоятельно обрабатывает большую часть нажатий клавиш:
[Alt] + клавиша для

Куда направляются сообщения о событиях клавиатуры.
Пользователь производит ввод с клавиатуры.
Сообщение о

Можно организовать обработку событий клавиатуры самой формой:
перехват событий формой.
Для

Это позволяет контролировать обработку нажатий клавиш.
Исключение составляют клавиши: [Tab], [Backspace],

Обработчики событий клавиатуры.
При нажатии клавиши вызываются два обработчика событий:
OnKeyDown
OnKeyUp.
Они взаимосвязаны и

OnKeyDown OnKeyUp.
Обработчики событий позволяют перехватывать нажатие сочетаний клавиш (с использованием [Shift],

Оба обработчика имеют тип TKeyEvent:
TKeyEvent =
procedure (Sender: TObject; var Key:

Пример 1. При установке для Form1 свойства KeyPreview = True следующая

Пример 2. При установке для Form1 свойства KeyPreview = True следующие

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if chr(Key) = '

Использование в сравнениях констант
При работе с параметром Key вместо кодов иногда

Константа 16-тиричный Клавиша
код
VK_SHIFT 10 Shift
VK_CONTROL 11 Ctrl
VK_MENU 12 Alt
VK_ESCAPE 1B Esc
VK_HOME 24 Home
VK_LEFT 25 ←
VK_0 30 0
VK_J 4A J
VK_NUMPAD0 60 0 на цифровом
блоке клавиатуры
VK_F8 77 F8

Пример 3. При установке для Form1 свойства KeyPreview = True процедура-обработчик

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key = VK_HOME
then

Пример 4. При нажатии сочетания клавиш [Alt + F10] появляется соответствующее

OnKeyPress.
Когда пользователь нажимает клавишу с символом ASCII в дополнение к ранее

В отличие от типов обработчиков, приведенных выше:
Key - символ нажатой клавиши.
Клавиши,

Пример 5. Приведенная ниже процедура представляет пример простейшей обработки события KeyPress.
При

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
Form1.Caption := Form1.Caption + Key;
end;

Обработка исключительных ситуаций
При работе программы возможно возникновение различных нестандартных ситуаций (деление

Непосредственные проверки утяжеляют алгоритм решения задачи.
В Object Pascal можно вынести

Исключительные ситуации могут формироваться:
процессором,
операционной системой,
средой Delphi,
самой программой

Структура исключения
Исключение с точки зрения языка Object Pascal представляет собой класс,

type
Exception = class(TObject)
private
FMessage: string;
FHelpContext: integer;
public
constructor Create(const Msg: string);
constructor CreateFmt(const Msg: string;

constructor CreateRes(Ident: integer);
constructor CreateResFmt(Ident: integer;
const Args: array of const);
constructor CreateHelp(const

constructor CreateResHelp(Ident: integer;
AHelpContext: integer);
constructor CreateResFmtHelp(Ident: integer;
const Args: array of

Свойства класса
Message - текст сообщения, которое появляется в окне сообщения при

Генерация исключительной ситуации
При необходимости можно создавать исключение любым из конструкторов, или

Создание исключения
Объект-исключение можно создать с помощью одного из представленных конструкторов.
Создание соответствующего

Пример
Необходимо получать сообщение об исключительной ситуации, суть которой в том,

Примеры стандартных классов исключительных ситуаций
В библиотеках Delphi имеется достаточно классов, ответственных

Имя класса Когда возникает
EAbstractError Попытка выполнения
абстрактного метода
EAccessViolation Обращение к недоступной
области памяти (например,

EExternal Некорректное
функционирование
системы Windows
EInOutError Ошибка файлового
ввода/вывода
EIntError Базовый класс для

EIntOverflow Недопустимо
большое значение
при работе
с целыми числами
EOverflow Переполнение

Контроль над исключительными ситуациями
Язык Object Pascal предоставляет следующую конструкцию для контроля

Порядок выполнения операторов:
Последовательно выполняются операторы, расположенные между try и except.
В случае

Примечание. Секция else необязательна (сокращенная форма):
try
Операторы;
except
Обрабатываемые классы исключительных ситуаций
end;

Конструкция try except end -
структурированный оператор.
Как и любой оператор, try

Запись классов, предназначенных для обработки:
оn имя класса do операторы;
Таких классов может

Пример. Выполняется сложение целых чисел Y, Z:
try
X := Y + Z;
except
on

Если при выполнении оператора X := Y + Z возникнет ошибка

В ряде случаев удобно использовать единый обработчик для любой исключительной ситуации.

Например:
try
X := Y + Z;
except
MyErrorProc;
end;
В случае возникновения любой исключительной ситуации при

Если реализованной программистом обработки ошибки недостаточно, можно передать управление соответствующему стандартному

Пример. Выполняется деление:
try
X := 100 div Y ;
except
on EDivByZero do
begin
ShowMessage

Из секции, в которой располагаются обработчики исключительных ситуаций, можно генерировать другие

Например:
try
X := Y + Z;
except
on EIntError do
raise EIntOverflow.Create (‘Возможно переполнение’);
end;
Если

Выполнение завершающих действий
В некоторых случаях программисту не нужен собственный обработчик ошибок
но

Для программирования подобных алгоритмов используется конструкция вида:
try
Операторы;
finally
Заключительные операторы;
end;
Заключительные действия будут выполнены

Пример. Освобождение памяти, выделенной для динамического массива, происходит независимо от успешности

Передача объектов, связанных с исключительными ситуациями
При возникновении исключительной ситуации специальный обработчик

оn E: имя класса do операторы;
Е – это произвольный идентификатор переменной