Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.037 c