чудеса наследования в стандартных компонентах

[xrob]

хочется написать очень много матерных слов, но постараюсь изложить проблему вкратце:

есть такой класс - TControl, думаю все знают...
в этом классе есть процедура:

procedure TControl.WMLButtonDown(var Message: TWMLButtonDown);

и в этой процедуре есть просто гениальная строка: inherited;

Может кто-нибудь объяснить, что она наследует?...


Класс TControl наследуется от TComponent:

TControl = class(TComponent)

а в классе TComponent НЕТ процедуры WMLButtonDown

буду очень признателен!

[BDA]

http://www.transl-gunsmoker.ru/2011/...inherited.html

Если же метод базового класса является абстрактным, либо же базовый класс вообще не содержит метода (для не виртуальных методов), то вызов inherited становится noop (No-Operation - пустым оператором). Компилятор не генерирует для него кода (и поэтому вы не можете поставить на него точку останова). Этот механизм является частью отличной версионной устойчивости языка Delphi.

Наверное, это сделано для того, чтобы если в будущем она (функция) появится, то не пришлось перелопачивать весь код, вписывая inherited.

[Человек_Борща]

и в этой процедуре есть просто гениальная строка: inherited;

Передает сообщение по цепочке. Ничего гениального. Если убрать, где-то что-то не обработает клик мышкой.

[xrob]

Человек_Борща, я примерно понимаю что такое inherited и сам много раз осмысленно им пользовался.
но вот в этом конкретном случае все было бы ништяк, если не одно "но":

вызов inherited становится noop

таким образом мы подтверждаем мои интуитивные догадки, о том,
что если в базовом классе нет такого метода, то вызов inherited ни к чему не приведет.

в таком случае логично ли утверждать, что если этот inherited ни к чему не приводит -
то его можно просто закомментить и это никак не скажется на результате?

[Человек_Борща]

xrob, не для ООП в этом случае inherited написан.
Просто сообщение идет дальше по цепочке оконных сообщений, подразумевается DispatchMessage.

Возьмите закомментируйте, и перекомпилируйте VCL, и полюбуйтесь на глюки.

Наверное, это сделано для того, чтобы если в будущем она (функция) появится, то не пришлось перелопачивать весь код, вписывая inherited.

Скорее всего так и есть. Delphi, VCL и RTL не дураки писали.

[xrob]

Человек_Борща, да, меня это и напрягало, что inherited здесь якобы ничего не значит,
но если его закоментить, потом неправильно работают компоненты...
вот и возникает вопрос - получается какую-то роль он все-таки играет.

ps: я тут ковыряю ComboBox, пытаюсь найти место, в котором у него список раскрывается...
путем нехитрых манипуляций с ShowMessage удалось выяснить что это происходит в inherited у TControl.WMLButtonDown.
теперь я в тупике...

[Пепел Феникса]

Сообщение от xrob

Человек_Борща, да, меня это и напрягало, что inherited здесь якобы ничего не значит,
но если его закоментить, потом неправильно работают компоненты...
вот и возникает вопрос - получается какую-то роль он все-таки играет.

ps: я тут ковыряю ComboBox, пытаюсь найти место, в котором у него список раскрывается...
путем нехитрых манипуляций с ShowMessage удалось выяснить что это происходит в inherited у TControl.WMLButtonDown.
теперь я в тупике...

не забывайте что многие стандартные компоненты используют сабклассинг от стандартных виндовых оконных классов, а не сами все делают.

inherited в случае сообщений означает или передать классу-предку обработку, или функции DefWindowProc, то есть винде(а точнее порою стандартному классу окна).