Вниз
Скачать: CL | DM;

Свой компонент   Найти похожие ветки 

← →
ViJen   (2003-11-04 17:10) [0]

Доброго вечера, мастера!
Проблемка в том, что я хочу для своего компонента сделать, чтобы в инспекторе объектов было свойство с выпадающим списком, состоящим из циферок: 0,1,2,3,4. Компонент написан и свойство появляется в инспекторе объектов, но без списка, это сделать не сложно.
А как сделать со списком?
Может кто нибудь популярно обяснить? (По документации не могу ничего толком понять, то ли надо писать свой редактор свойств, то ли не надо, а если надо то где - в модуле с компонентом или где-то в другом месте?)
Помогите плиз.


← →
Amoeba   (2003-11-04 17:11) [1]

А какой хоть тип имеет это свойство?


← →
ViJen   (2003-11-04 17:14) [2]

Допустим integer (если содержисое списка цифры).


← →
Skier ©   (2003-11-04 17:17) [3]

>ViJen (04.11.03 17:14) [2]

> чтобы в инспекторе объектов было свойство с выпадающим списком,
>


Обязательно выпадающим списком ?


← →
ViJen   (2003-11-04 17:26) [4]

Желательно чтоб нельзя было вводить другие числа, кроме опрделенных.


← →
Skier ©   (2003-11-04 17:30) [5]

>ViJen (04.11.03 17:26) [4]
Ну так создай тип

type
TYourType = 0..4;

И затем

YourProperty : TYourType read...write...

Delphi сама будет ограничивать ввод.


← →
Amoeba   (2003-11-04 17:33) [6]

Придется несколько переработать код компонента.
В твоем случае собственно Integer не пойдет. Для начала нужно описать свой Enumerated (перечисление) тип для этого свойства (насколько можно понять, диапазон значений свойства уже, чем у Integer и даже Byte):

type
TSomeNumbers = (1, 2, 3, 4);

Естественно, придется внести необходимые коррективы в программный код.

И этого достаточно. Инспектор покажет это свойство как тебе и требуется.


← →
Amoeba   (2003-11-04 17:37) [7]

Я бы все-таки рекомендовал последовать совету Skier, меньше возни, не надо переделывать код.



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

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



Память: 0.46 MB
Время: -0.974 c
14-42050
Denis_Ac
2003-09-25 06:50
2003.11.13
Красноярцы ---->


1-41283
Mr.Ice
2003-10-31 14:22
2003.11.13
Как сделать?


14-42088
Дракон
2003-10-23 11:16
2003.11.13
Первая версия Microsoft Windows 1.0 (1985 год)


3-41047
dimablind
2003-10-24 15:26
2003.11.13
функция max в sql


14-42109
Андрей Пономарев
2003-10-22 15:53
2003.11.13
OLAP и what-if анализ




   Наверх