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

Previous  Top  Next

    
 

 

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

 

 

 

©Drkb::00125

       

Взято с http://delphiworld.narod.ru