 |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
 
|
|
события 
| boogerman |
|
|||
|
Unregistered |
Есть такой код
r1.OnEnter := FrameTree.SetFocused; procedure TFrameTree.SetFocused(Sender: TObject); begin inherited; ........doing some thing end; Нужно чтобы новая функция сделала свое дело и передала управление дальше стандартному событию r1.OnEnter Как провернуть такую штуку? |
|||
|
||||
Загрузка ...
| _hunter |
|
|||
 Эксперт  Профиль Группа: Участник Клуба Сообщений: 8564 Регистрация: 24.6.2003 Где: Europe::Ukraine:: Kiev Репутация: 15 Всего: 98 |
или я не понял чего?  -------------------- Tempora mutantur, et nos mutamur in illis... |
|||
|
||||
| boogerman |
|
|||
|
Unregistered |
не получится.... совершенно разные классы, не имеют родства друг от друга...
|
|||
|
||||
| _hunter |
|
|||
|
Эксперт Профиль Группа: Участник Клуба Сообщений: 8564 Регистрация: 24.6.2003 Где: Europe::Ukraine:: Kiev Репутация: 15 Всего: 98 |
какие еще "совершенно разные классы"? не вижу
 -------------------- Tempora mutantur, et nos mutamur in illis... |
|||
|
||||
| _hunter |
|
|||
|
Эксперт Профиль Группа: Участник Клуба Сообщений: 8564 Регистрация: 24.6.2003 Где: Europe::Ukraine:: Kiev Репутация: 15 Всего: 98 |
и что такое "стандартноe событиe r1.OnEnter"?
-------------------- Tempora mutantur, et nos mutamur in illis... |
|||
|
||||
| <Spawn> |
|
|||
 Око кары:) Профиль Группа: Экс. модератор Сообщений: 2776 Регистрация: 29.1.2003 Где: Екатеринбург Репутация: 44 Всего: 64 |
Для этого нужно перекрыть стандартную реализацию срабатывания OnEnter - в ней вызвать SetFocused, а потом сделать inherited -------------------- "Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков. |
|||
|
||||
|
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
[ Время генерации скрипта: 0.0437 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |