Как-то так:
В Делфи событие, - это процедурный тип. Т.е. чтобы обработать сотыбие, нужно присвоить объекту процедуру-обработчик. А объект будет вызывать эту процедура всякий раз, когда должно сработать событие.
Чтобы добавить событие к своему классу, надо:
1) Определить тип данных обработчика события, или воспользоваться стандартным(предпочтительнее).
свой:
| Код |
type
TMyEvent = procedure (aParam1,aParam2:TObject) of object;
|
Это означает что обработчиком события у нас будет процедура какого-либо объекта с двумя параметрами aParam1,aParam2:TObject
Но для начала лучше использовать стандартный тип события, например:
| Код |
TNotifyEvent = procedure(Sender: TObject) of object;
|
Тип TNotifyEvent объявлен в модуле classes.
2) В класс, который должен вызывать событие добавляем proprty к которой будем присваивать:
| Код |
type
TMyClass = class
private
FMyEvent: TNotifyEvent;
public
procedure TestEvent;
published
property OnMyEvent: TNotifyEvent read FOnMyEvent write FOnMyEvent;
end;
|
3) Теперь, надо сделать так чтобы, это событие заработало. Для этого в нужном тебе месте добавить вызов события как процедуры.
| Код |
procedure TMyClass.TestEvent;
begin
if assigned(FMyEvent) then // сначала проверим что FMyEvent <> nil
FMyEvent (self);
//RaiseEvent testEvent(a)
end;
|
4) Теперь в нужном месте необходимо присвоить обработчик события. Например, у нас есть форма:
| Код |
type
TForm1 = class(TForm)
....
private
procedure MyEventHandler(Sender:TObject); // пусть эта процедура у нас будет обработчиком события в объекте класса TMyClass
procedure CreateObjectAndTestEvent;
end;
procedure TMyClass.CreateObjectAndTestEvent;
var
tmpMyClass:TMyClass;
begin
tmpMyClass:=TMyClass.Create; // создаём объект класса TMyClass
try
tmpMyClass.OnMyEvent := MyEventHandler; // присваеваем объекту обработчик
tmpMyClass.TestEvent; // запускаем процедуру вызывающую событие
finally
tmpMyClass.Free;
end;
end;
procedure TMyClass.MyEventHandler(Sender:TObject);
begin
ShowMessage('Йа обработчик события, ура!')
end;
|
|
