Не получается перекрыть SetWidth

← →
TStas © (2005-09-02 01:30) [0]

Пишу наследника TgraphicControl. Нужно перекрыть SetWidth, чтобы не только изменялась ширина, но и производились некие дополнительные действия. У TgraphicControl SetWidth наследуется от TControl, у которого этот метод определен в Privat. Попытка написать с override приводит к тому, что Дельфи гугаются, говоря, что нет у родителя такого метода, а без override просто глючит. И чего делать?

← →
Джо © (2005-09-02 01:43) [1]

> И чего делать?

Перекрой procedure Resize и не мучайся :)

← →
TStas © (2005-09-02 01:51) [2]

Сейчас попробую

← →
TStas © (2005-09-02 02:05) [3]

Так resize у TControla процедура диспетчеризации, а не изменения размера, смысл-то какой ее перекрывать? Мне нужно сделать свойство Width, а вот не выходит

Это я тормозил:) Все получается:) А за идею перекрытия методов диспетчеризации спасибо

Или перекрыть SetBounds. Наколько помню, SetWidth только и делает, что вызывает именно его.

Не получается перекрыть SetWidth Найти похожие ветки