Текущий архив: 2002.09.16;
Скачать: CL | DM;

Вниз

создание сложных компонентов   Найти похожие ветки 

← →
DDA   (2002-09-06 08:26) [0]

Почему
TTest = class (TPersistent)
private
fTTT : Integer;
published
property TTT : Integer read fTTT write fTTT;
end;

TDPanel = class(TPanel)
private
fTest : TTest;
published
property Test : TEdit read fTest write SetTest;
end;
свойство Test сохраняется в *.dfm, а
какое-нибудь из свойств, скажем, Text, нет?

TDPanel = class(TPanel)
private
fTest : TEdit;
published
property Test : TEdit read fTest write SetTest;
end;

---

← →
ЮЮ ©   (2002-09-06 08:37) [1]

>какое-нибудь из свойств, скажем, Text , нет?
Никакого Text в приведённом примере не вижу :-(

---

← →
DDA   (2002-09-06 08:47) [2]

Извините, поспешил.

Имеем
TTest = class (TPersistent)
private
fTTT : Integer;
published
property TTT : Integer read fTTT write fTTT;
end;

TDPanel = class(TPanel)
private
fTest : TTest;
published
property Test : TTest read fTest write SetTest;
end;

Создаем экземпляр класса TDPanel.
Так вот свойство TTT подкласса TTest сохраняется в *.dfm,
а какое-нибудь из свойств, скажем, Text, подкласса TEdit
в нижеприведенном примере - не сохраняется в *.dfm?

TDPanel = class(TPanel)
private
fTest : TEdit;
published
property Test : TEdit read fTest write SetTest; end;

---

← →
DDA   (2002-09-06 08:55) [3]

Все. Нашел.

При создание SubComponents нужно вызывать метод

NewSubComponent.SetSubComponent(true).

---

Страницы: 1 вся ветка

Текущий архив: 2002.09.16;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.014 c