TPageControl: как предотвратить изменение свойства стиля

Question

Я хочу, чтобы потомок TPageControl не имел Style, кроме tsTabs.

На первый взгляд я попытался переопределить SetStyle, но он объявлен частным в базовом классе. у кого есть идеи?

Answer 1

TPageControl не поддерживает то, о чем вы просите. Для того, чтобы сделать то, что вы просите, вы должны либо:

1. ваш компонент повторно объявить Style свойство с новыми методами геттер/сеттер, а затем иметь сеттер выход, не делая ничего. Однако унаследованное свойство Style по-прежнему будет технически доступно во время выполнения, если пользователь компонента действительно хочет получить к нему доступ.

2. вывести свой компонент из TCustomTabControl вместо TPageControl, и повторно реализовать все, что TPageControl делает, но без содействия защищенных Style собственности. Однако унаследованное свойство Style по-прежнему будет технически доступно во время выполнения, если пользователь компонента действительно хочет получить к нему доступ.

3. ваш компонент переопределяет виртуальный метод CreateParams() и заставляет стиль окна TCS_TABS в поле TCreateParams.Style. Свойство Style по-прежнему будет иметь любое значение, которое назначает пользователь (что также повлияет на поведение свойства TabPosition), но по крайней мере основное окно всегда будет вести себя так, как если бы использовался стиль tsTabs.

4. используйте обходную библиотеку, чтобы зацепить TCustomTabControl.SetStyle() непосредственно во время выполнения и вернуть ее, ничего не делая.