Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.13;
Скачать: 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 вся ветка

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

Наверх




Память: 0.48 MB
Время: 0.072 c
3-40822
PolarS
2003-10-22 10:38
2003.11.13
Как программно выполнить Job MS SQL Server?


14-42097
ZeroDivide
2003-10-23 10:33
2003.11.13
Кто знает, чем закончилась


1-41642
Лана Розанова
2003-10-25 21:18
2003.11.13
ListView


4-42305
Joker1
2003-09-07 12:16
2003.11.13
Блокировка всех приложений


8-41762
Zorik
2003-06-26 16:30
2003.11.13
Как отобразить большой Bitmap на PaintBox.Canvas (100-200 Mb)