Добавление нового события

← →
Megabyte © (2006-04-04 14:28) [0]

Хочу сделать новый компонент на базе TImage.
Хочу добавить 2 события: вход/уход мышки с поля компонента(NoMouseEnter/OnMouseLeave).
Никогда не делал компоненты(но в принципе понимаю) и не нашел нужных примеров по добавлению событий.
Есть, допустим, 2 процедуры с директивой Message, реагирующие на сообщения Винды, соответственно: procedure MouseEnter(aMsg : TMessage); message WM_MOUSEENTER; procedure MouseLeave(aMsg : TMessage); message WM_MOUSELEAVE.События - это свойства процедурного типа, как я понял.
Пусть мне нужно событие с одним параметром Sender, соответственно типа TNotifyEvent.
TadvImage = class(TImage) FOnMouseEnter : TNotifyEvent; FOnMouseLeave : TNotifyEvent; ... published property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter; property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave
По идее FOnMouseEnter, FOnMouseLeave - переменные, кот. должны указывать на метод, кот. должен выполняться при наступлении события.
1) Во-первых, мне не понятно, что в данном случае означают директивы "read" и "write"?
2) Я не понимаю, как мне связать реакцию на данные сообщения Винды? По идее надо в переменные FOnMouseEnter, FOnMouseLeave указатели на мои процедуры, но тогда не будут совпадать типа переменных(один параметр aMsg: TMessage) и свойств/событий(один параметр Sender :TObject).

Может все делается горвздо проще? Мне надо сделать 2 новых события, реагирующих на определенные сообщения видны, и чтобы эти события отображались в инспекторе объектов.

← →
MBo © (2006-04-04 14:31) [1]

http://www.swissdelphicenter.ch/en/showcode.php?id=1068

← →
Megabyte © (2006-04-04 15:01) [2]

Хитро.
А 1-й вопрос?

> 1) Во-первых, мне не понятно, что в данном случае означают
> директивы "read" и "write"?

Возможно ли, чтобы отсутствовала одна директива, например write?

← →
Megabyte © (2006-04-04 15:02) [3]

Типа в переменную заносится факт наступлния события?

Для того, чтобы свойство отображалось в инспекторе объектов, оно должно быть published и иметь доступ и на чтение, и на запись.

Добавление нового события Найти похожие ветки