Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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
8-100342
Ssergy
2002-12-20 10:38
2003.03.31
Отрисовка массива в 3D


7-100477
BJValentine
2003-02-04 16:55
2003.03.31
События Windows


7-100469
Alex Shulg
2003-02-04 15:49
2003.03.31
Сервис WinNT


14-100452
aga
2003-03-14 20:12
2003.03.31
dll


6-100353
dkDimon
2003-02-07 22:00
2003.03.31
Преобразовать строку