Советы по 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]



Содержание раздела