Советы по Delphi
Создание компонента
...чтобы сгруппировать свойства наподобие Font, вам необходимо создать наследника (подкласс) TPersistent. Например:
|
TBoolList = class(TPersistent) private FValue1: Boolean; FValue2: Boolean published property Value1: Boolean read FValue1 write FValue1; property Value2: Boolean read FValue2 write FValue2; end; |
Затем, в вашем новом компоненте, для этого подкласса необходимо создать ivar. Чтобы все работало правильно, вам =необходимо= перекрыть конструктор.
|
TMyPanel = class(TCustomPanel) private FBoolList: TBoolList; public constructor Create( AOwner: TComponent ); override; published property BoolList: TBoolList read FBoolList write FBoolLisr; end; |
Затем добавьте следующий код в ваш конструктор:
|
constructor TMyPanel.Create( AOwner: TComponent ); begin inherited Create( AOwner ); FBoolList := TBoolList.Create; end; |
[001485]
