Сгруппировать свойства наподобие Font
Falk0ner, вс, 06/07/2008 - 15:34.
Затем добавьте следующий код в ваш конструктор:
...чтобы сгруппировать свойства наподобие 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;
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;
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;
begin
inherited Create( AOwner );
FBoolList := TBoolList.Create;
end;
Взято с http://delphiworld.narod.ru
Отправить комментарий