Главная страница
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.014 c
6-44293
Fredericco
2003-02-18 10:56
2003.04.14
Сокеты. Проверка программы клиента наличие программы сервера.


14-44408
FLIZ
2003-03-28 15:21
2003.04.14
Как определить длину RTF текста? (+)


1-44251
sean
2003-03-31 21:18
2003.04.14
Приложение без формы


3-44054
Наташа
2003-03-26 09:28
2003.04.14
Связи между таблицами


3-44074
T{}r(l-l
2003-03-25 17:33
2003.04.14
Проблемы с 7.0, DTS