Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.04.14;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.009 c
4-44509
dums
2003-02-13 23:29
2003.04.14
такие разные handle-ы


3-44027
Pontic
2003-03-25 17:43
2003.04.14
Alias для Interbase


3-44060
guest123
2003-03-25 14:11
2003.04.14
подстановка


1-44216
Zew
2003-03-31 21:03
2003.04.14
Свернуть в трей при запуске


1-44218
Zew
2003-04-01 17:56
2003.04.14
Стиль windows xp





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский