Генерация собственных событий

← →
Vince (2002-03-05 22:03) [0]

Пожалуйста, помогите. Нигде не нашёл, как генерировать собственные события в Delphi, а мне очень нужно это узнать

← →
Anatoly Podgoretsky © (2002-03-06 08:00) [1]

События не гкнерируются, они возникают, а генерируется вызов обработчика, это простой вызов процедуры, например
if assigned(fx) then fx(self);

← →
Виктор Щербаков © (2002-03-06 09:05) [2]

События - это свойства процедурного типа.
В объявлении класса, объяви их как объявляешь остальные свойства.
Например:
property OnMyEvent: TMyEvent read fx write fx;
где fx - переменнаятипа TMyEvent. А TMyEvent - процедурный тип.
Но он должен быть объявлен как of object. Т.е. переменная fx
должна указывать на метод объекта, а не просто на процедуру или функцию.

Затем в реализации класса делай вызов как у
Anatoly Podgoretsky © (06.03.02 08:00)

А если тебе надо из какого-то кода пустить событие, можно
использовать SendMessage(WM_My1) или PostMessage(WM_My1), а в классе допустим формы объявить процедуру
OnЧто-то(Params); message WM_My1;
Теперь если сообщение послано, OnЧто-то выполнится

Генерация собственных событий Найти похожие ветки