Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Обработка событий в наследуемом компоненте 
:(
    Опции темы
Dayana
Дата 26.12.2005, 12:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник Клуба
Сообщений: 352
Регистрация: 6.10.2002
Где: Тель-Авив

Репутация: 2
Всего: 4



Привет всем!
1000 лет не задавала, а также не отвечала на вопросы. Но вот вдруг созрело... пока задать...
Давно не наследовала компоненты... стормозила по страшному.... а надо срочно...

Наследую компонент, в частности от TwwDBGrid. Мне нужно, чтобы на событие OnColWidthChanged выполнялся мой код. Ну и понятно код пользователя smile . Определяю свой метод для данного события, например MyColWidthChanged. Событие пользователя запоминаю в SaveColWidthChanged.
код1
Код

...
  if Assigned(OnColWidthChanged) then
    SaveColWidthChanged:= OnColWidthChanged;
  OnColWidthChanged := MyColWidthChanged;
....

код 2
И в методе MyColWidthChanged пишу свой код и вызываю событие пользователя:
Код

procedure TMyGrid.MyColWidthChanged(Sender: TObject; Column: Integer);
begin
  if Assigned(SaveColWidthChanged) then
    SaveColWidthChanged(Sender, Column);
  ---  мой код  ----
end;


Вопрос: где можно перекрыть событие пользователя и заменить его своим? Т.е. выполнить код1. Если выполняю на Create, то здесь событие пользователя еще не видно. Т.е. на обработчике еще nil. А где тогда видно?

Спасибо!

Это сообщение отредактировал(а) Dayana - 26.12.2005, 12:29
PM MAIL ICQ   Вверх
_hunter
Дата 26.12.2005, 12:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98



при наследовании перекрывают не On а Do. т.е. в нем выполняем свой код и делаем
if Assigned(OnColWidthChanged) then
OnColWidthChanged(...) -- вызов пользовательского обработчика



--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Dayana
Дата 26.12.2005, 12:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник Клуба
Сообщений: 352
Регистрация: 6.10.2002
Где: Тель-Авив

Репутация: 2
Всего: 4



_hunter, все бы хорошо, но у данного события нет Do. Обработчик вызывается в MouseUp. Но если я перекрываю MouseUp, то плохо работает, в частности грид меняет высоту заголовка, короче глючит. Если посмотреть сорсы, то на самом деле обраотчик события вызывается в середине метода. А когда я перекрываю MouseUp, то свой код могу выполнить либо перед inherited, либо после. Т.е. не там, где на самом деле выполняется событие. Все хорошо работает, когда именно перекрываю событие.
Добавлено @ 12:50
В любом случае, вопрос открытый, в какой момент события компонента получают свои обработчики, определенные пользователем?
PM MAIL ICQ   Вверх
_hunter
Дата 26.12.2005, 13:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98



значит нужно перекрывать MouseUp и перенести его код в свой класс...


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Dayana
Дата 26.12.2005, 13:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник Клуба
Сообщений: 352
Регистрация: 6.10.2002
Где: Тель-Авив

Репутация: 2
Всего: 4



_hunter, да, спасибо, похоже другого выхода нет...
PM MAIL ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0657 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.