Как для свойства типа перечисление отобразить НЕ ВСЕ элементы

← →
testpu (2002-09-21 20:47) [0]

Пример: свойство BorderStyle для формы может принимать одно из следующих значений bsNone, bsSingle, bsSizeable, bsDialog, bsToolWindow, bsSizeToolWin. То же свойство для TEdit принимает только два значения bsNone, bsSingle.
Если я наследую свой класс от TEdit, то в окне Property выпадающий список состоит из двух значений, а если от TCustomEdit, то выпадающий список включает в себя все допустимые значения (6 шт.), а мне нужно только 2. Теоритически я понимаю, что что-то нужно делать с TEnumProperty, но в исходниках компонентов я ничего такого не нашел. Знающие люди, подскажите, что нужно делать?

← →
Юрий Зотов © (2002-09-21 21:28) [1]

У формы и Edit это РАЗНЫЕ типы:

Форма:
TFormBorderStyle = (bsNone, bsSingle, bsSizeable, bsDialog, bsToolWindow, bsSizeToolWin);

Edit:
TBorderStyle = bsNone..bsSingle;

Можно (и нужно) пойти тем же путем. Если же написать свой редактор, недопустимое значение можно будет присвоить в run-time. С вытекающими ошибками.

А TEnumProperty надо искать не в исходниках компонентов, а в модуле DsgnIntf. Там же подробные комментарии и куча примеров.

Как для свойства типа перечисление отобразить НЕ ВСЕ элементы Найти похожие ветки