Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c