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

Материал из DRKB

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

...чтобы сгруппировать свойства наподобие 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;


Source: http://delphiworld.narod.ru
ID: 00125