Сгруппировать свойства наподобие Font

...чтобы сгруппировать свойства наподобие Font, вам необходимо создать наследника (подкласс) TPersistent. Например:

Code:

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. Чтобы все работало правильно, вам необходимо перекрыть конструктор.

Code:

TMyPanel = class(TCustomPanel)

private

FBoolList: TBoolList;

public

constructor Create( AOwner: TComponent ); override;

published

property BoolList: TBoolList read FBoolList write FBoolLisr;

end;

Затем добавьте следующий код в ваш конструктор:

Code:

constructor TMyPanel.Create( AOwner: TComponent );

begin

inherited Create( AOwner );

FBoolList := TBoolList.Create;

end;

Взято с https://delphiworld.narod

Новые статьи