Текущий архив: 2003.03.31;
Скачать: CL | DM;
Вниз
Сохранение свойств вложенных компонентов Найти похожие ветки
← →
VaS © (2003-03-20 10:47) [0]Цель - сохранение свойств вложенного компонента.
type
TInside = class(TComponent)
private
FOne: integer;
published
//свойство, которое надо сохранить
property One: integer read FOne write FOne;
end;
TTest = class(TComponent)
private
//вложенный компонент
FInside: TInside;
public
constructor Create(AOwner: TComponent); override;
published
property Inside: TInside read FInside;
end;
procedure Register;
begin
RegisterComponents("TestPage", [TTest]);
end;
constructor TTest.Create(AOwner: TComponent);
begin
inherited;
FInside := TInside.Create(self);
FInside.FreeNotification(self);
end;
Не сохраняется свойство :( Почему? Через DefineProperties() шибко муторно. Пытался в этом плане копать TLabeledEdit - не нашел где же он сохраняет.
← →
Mike_Goblin © (2003-03-20 11:03) [1]procedure SetSubComponent(IsSubComponent: Boolean);
← →
VaS © (2003-03-20 12:21) [2]Спасибо, не знал.
Но сделал иначе - по аналогии с TFont - наследовал от TPersistent + редактор свойства с Attributes = [paSubProperties, paReadOnly]. Ну и перегрузил Assign().
Страницы: 1 вся ветка
Текущий архив: 2003.03.31;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.016 c
