Строковое свойство с выпадающим списком

← →
Anatoly © (2004-12-07 13:10) [0]

Подскажите пожалуйста, как сделать, чтобы в инспекторе объектов свойство типа string давало возможность выбора из выпадающего списка (наподобие свойства DriverName компонента TDatabase, например)

← →
Rouse_ © (2004-12-07 15:12) [1]

Это сделано таким вот образом:

type TDriverNameProperty = class(TDBStringProperty) public procedure GetValueList(List: TStrings); override; end; procedure TDriverNameProperty.GetValueList(List: TStrings); begin (GetComponent(0) as TDatabase).Session.GetDriverNames(List); end; ... RegisterPropertyEditor(TypeInfo(string), TDatabase, "DriverName", TDriverNameProperty);

← →
Юрий Зотов © (2004-12-07 19:13) [2]

> свойство типа string

Значит, надо:

1. Отнаследовать редактор свойства от TStringProperty.
2. Заместить GetAttributes и в результат включить paValueList.
3. Заместить GetValues, там сформировать список строк и для каждой из них вызвать Proc.

← →
Anatoly © (2004-12-16 15:42) [3]

Спасибо! все получилось

Строковое свойство с выпадающим списком Найти похожие ветки