| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Строковое свойство с выпадающим списком [D7, Win2k]
Anatoly © (2004-12-07 13:10:00)Подскажите пожалуйста, как сделать, чтобы в инспекторе объектов свойство типа string давало возможность выбора из выпадающего списка (наподобие свойства DriverName компонента TDatabase, например)
Anatoly (2004-12-16 15:42:00) [1]Спасибо! все получилось
Anatoly (2004-12-16 15:42:00) [2]Спасибо! все получилось
Юрий Зотов (2004-12-07 19:13:00) [3]> свойство типа string
Значит, надо:
1. Отнаследовать редактор свойства от TStringProperty.
2. Заместить GetAttributes и в результат включить paValueList.
3. Заместить GetValues, там сформировать список строк и для каждой из них вызвать Proc.
Rouse_ (2004-12-07 15:12:00) [4]Это сделано таким вот образом:
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);
| |
