Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.16;
Скачать: CL | DM;

Вниз

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

 
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]

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


 
Anatoly ©   (2004-12-16 15:42) [4]

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



Страницы: 1 вся ветка

Текущий архив: 2005.10.16;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.052 c
11-1108497834
VNavigator
2005-02-15 23:03
2005.10.16
Cursor


9-1113160907
Yegorchic
2005-04-10 23:21
2005.10.16
Эффект вечного приближения


14-1127490900
YurikGL
2005-09-23 19:55
2005.10.16
Американские русофобы


2-1125667287
SarDoX
2005-09-02 17:21
2005.10.16
С чего начать?


2-1126672265
newgluk
2005-09-14 08:31
2005.10.16
D7+MSSQL