Создание перечисляемых свойств компонента

К свойствам перечисляемого типа относятся такие свойства компонента, которые при их редактировании в окне инспектора объектов вызывают выпадающий список, содержащий возможные значения данного свойства. К числу подобных свойств относятся Align, BorderStyle, Color и др. Для того чтобы самостоятельно добавить в новый компонент перечисляемое свойство, необходимо сначала определить новый перечисляемый тип, например:

TMyEnumType = (eFirst, eSecond, eThird);

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

type

TMyEnumType = (eFirst, eSecond, eThird);

type

TMyButton = class(TButton)

private

FMyEnum: TMyEnumType;

Protected

{ Protected declarations }

Public

{ Public declarations }

Published

property MyEnumProp: TMyEnumType read FMyEnum write FMyEnum;

end;

Таким образом, в окне инспектора объектов, при изменении свойства MyEnumProp, будет выдан выпадающий список, содержащий три пункта: eFirst, eSecond и eThird (рис. 2).

Рис. 2.Перечисляемое свойство MyEnumProp в новом компоненте TMyButton.