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

← →
ErmSergey © (2002-08-23 14:46) [0]

Создал класс наследник TCustomRichEdit и добавил событие. Но оно не отображается в Object Inspector"е. Почему?

← →
Reindeer Moss Eater (2002-08-23 14:48) [1]

Должно быть в секции published, имя долно начинаться на On...

← →
lenin © (2002-08-23 14:48) [2]

А ты его установил? (Component->Install Component...)

← →
ErmSergey © (2002-08-23 14:51) [3]

Вот как все выглядит:

type
TOnWordEvent = procedure(Sender: TObject; Word: string) of object;
TAdvRichEdit = class(TRichEdit)
private
{ Private declarations }
FOnWord: TOnWordEvent;
protected
{ Protected declarations }
public
{ Public declarations }
procedure MouseMove(Shift: TShiftState; X, Y: Integer);override;
published
{ Published declarations }
property OnWord: TOnWordEvent read FOnWord write FOnWord;
end;

> имя долно начинаться на On...

Не имеет значения. Просто так принято, не более.

> ErmSergey

Смотрел-смотрел, ничего подозрительного не увидел. Должно расти. Попробуйте перекомпилировать пакет.

Если у этого класса предполагаются наследники, советую ввести еще и метод диспетчеризации события. Это не обязательно, но грамотно. Пример - тот же метод MouseMove. Класс-наследник может заместить метод диспетчеризации и тем самым встроить в цепочку обработки события свой код без риска повлиять на остальную функциональность (точно так же, как Вы это сделали и сами, заместив MouseMove).

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