Форум: "Основная";
Текущий архив: 2002.09.05;
Скачать: [xml.tar.bz2];
ВнизДобавление событий Найти похожие ветки
← →
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;
← →
Юрий Зотов (2002-08-23 23:22) [4]> имя долно начинаться на On...
Не имеет значения. Просто так принято, не более.
> ErmSergey
Смотрел-смотрел, ничего подозрительного не увидел. Должно расти. Попробуйте перекомпилировать пакет.
Если у этого класса предполагаются наследники, советую ввести еще и метод диспетчеризации события. Это не обязательно, но грамотно. Пример - тот же метод MouseMove. Класс-наследник может заместить метод диспетчеризации и тем самым встроить в цепочку обработки события свой код без риска повлиять на остальную функциональность (точно так же, как Вы это сделали и сами, заместив MouseMove).
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.09.05;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c