Создание событий компонента

Определение.Событие- это любое действие, произошедшее благодаря операционной системе, действиям пользователя, работе программы.

Событие можно "перехватить" и обработать с помощью программы-обработчикасобытия. Связь между событием и программой-обработчиком называется свойством-событием. Таким образом, когда происходит какое-либо событие компонента, он может обработать данное событие. Для этого сначала происходит проверка наличия кода обработки события. Если подобный код есть - он выполняется.

Рассмотрим в качестве примера такое часто возникающее событие, как нажатие левой кнопки мыши OnClick. Данное событие, как и многие другие, имеет так называемые методы диспетчеризации событий(event-dispatching methods). Эти методы нужны как раз для того, чтобы определять, создан ли код обработки произошедшего события для данного компонента. Эти методы объявляются как защищенные (protected). Таким образом, для свойства OnClick определен метод диспетчеризации события Click:

TControl = class (TComponent)

private

FOnClick: TNotifyEvent;

protected

procedure Click; dynamic;

property OnClick: TNotifyEvent read FOnClick write FOnClick;

end;

implementation

procedure TControl.Click;

begin

if Assigned (FOnClick) then FOnClick (Self);

end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

Canvas.TextOut(X, Y, '('+IntToStr(X)+', '+IntToStr(Y)+')');

end;

Рис. 5.Результат обработки события OnMouseDown.