Не переписывается метод SetWidth

← →
Mishenka (2007-08-01 10:47) [0]

Пишу компонент потомок TButton. Хочу переписать метод SetWidth
Пишу:
TComponentName = class(TButton) private procedure SetWidth(Value: Integer); override; ...
При выполнении программы выводится ошибка "Method SetWidth not found in base class"
Однако метод SetWidth унаследован от класса TControl? который является одним из предков TButton. А почему тогда ничего не работает?

← →
Сергей М. © (2007-08-01 10:51) [1]

> почему тогда ничего не работает?

Потому что метод TControl.SetWidth

1. Приватный
2. Статический

Перекрывать следует не SetWidth, а SetBounds, который:

1. Публичный
2. Виртуальный

Не переписывается метод SetWidth Найти похожие ветки