Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.14;
Скачать: CL | DM;

Вниз

Как переопределить событие?   Найти похожие ветки 

 
yurikon03   (2003-04-03 09:20) [0]

Например в компоненте наследнике от TTreeView при возникновении события OnChange выполнялся сначала мой код, а потом тот, который указан в Inspector`е?


 
Skier ©   (2003-04-03 09:22) [1]

Перекрой в наследнике метод Change
procedure TCustomTreeView.Change(Node: TTreeNode); dynamic;


 
yurikon03   (2003-04-03 09:39) [2]

>> Перекрой в наследнике метод Change
>> procedure TCustomTreeView.Change(Node: TTreeNode); dynamic;
А dynamic обязательно указывать?


 
Skier ©   (2003-04-03 09:44) [3]

>yurikon03
1)Без обид, но (!) - ПОЧИТАЙ КНИГИ.
2) объявление в наследнике
TYourTreeView = class(...)
protected
Change(Node: TTreeNode); override;
//..................
end; //TYourTreeView

реализация в наследнике
TYourTreeView.Change(Node: TTreeNode);
begin
//your code goes here...
end;


 
Михаил Баринов   (2003-04-03 09:48) [4]

Насчет книг - согласен с Skier ©. :)
По-моему в последнем примере нужно добавить inherited.
Он вызывает родительскую реализацию перекрытого метода.
override - просто убирает предупреждение, что метод наследника закрывает метод родителя.


 
Skier ©   (2003-04-03 09:53) [5]

>Михаил Баринов

> По-моему в последнем примере нужно добавить inherited

С учётом того что автор вопроса хочет "вызывать" "код, который указан в Inspector`е?", то - ДА.

А в общем случае всё зависит от того что требуется от перекрытого
метода.


 
yurikon03   (2003-04-03 09:54) [6]

>Skier ©
Без обид :-)



Страницы: 1 вся ветка

Текущий архив: 2003.04.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
3-44081
Pontic
2003-03-26 19:19
2003.04.14
Проблема с Interbase


1-44126
[diesel]
2003-04-03 10:29
2003.04.14
Высота TListItem


14-44434
Merlin
2003-03-28 13:42
2003.04.14
Переезд сайта


7-44492
Andy BitOff
2003-02-18 12:46
2003.04.14
WinXP CTRL+ALT+DEL, ALT-TAB, CTRL-ESC


7-44462
sachem
2003-02-18 11:07
2003.04.14
Как заблокировать клавиатуру?