Класс внутри класса

[xxxkrikxxx]

Всем привет. Имеется компонент, в котором внутри имеется 2 класса.

TTestClass1 = class(TComponent)
...
Создаются объекты в Canvas
...
TTestClass2 = class(TComponent)
...
Создаются объекты в Canvas
...

В конструкторе TTestClass2
создаются экземпляры TTestClass1.

Когда кидаю на форму, вроде все норм. Но при запуске приложения на выполнение пишет что TTestClass1 не найден. В чем может быть проблема?

[Vapaamies]

Ошибка наверняка в сохранении в DFM. Почитай в справке про DefineProperty, например.

Что-то не так может быть и наследованием. Компоненты должны сохраняться в DFM как самостоятельные объекты, а не как свойства другого компонента, для этого есть TPersistent.

[xxxkrikxxx]

Т.е. предпологается чтобы TTestClass1 и TTestClass2 были отдельными компонентами и создавались уже на форме?
Давайте разберем для примера ситуацию, когда нужно сделать TPanel на которой нужно сделать Button и Label (и все это новый компонент). Как правильно создать данный компонент?

[саша40]

Сообщение от xxxkrikxxx

Т.е. предпологается чтобы TTestClass1 и TTestClass2 были отдельными компонентами и создавались уже на форме?
Давайте разберем для примера ситуацию, когда нужно сделать TPanel на которой нужно сделать Button и Label (и все это новый компонент). Как правильно создать данный компонент?

Для твоего TPanel, просто свойство Parent при создание Label и Button задается на Panel.
Пример кода:

//на форме уже создан Panel1: TPanel
var
ButtonPanel1: TButton;
LabelPanel1: TLabel; //для начала объявим их
begin
ButtonPanel1:= TButton.Create(Self);
LabelPanel1:= TLabel.Create(Self);
ButtonPanel1.Parent:=Panel1;
Label1Panel1.Parent:=Panel1;
//дальше присваиваешь им координаты и прочие свойства. 
end;

[Человек_Борща]

Давайте разберем для примера ситуацию, когда нужно сделать TPanel на которой нужно сделать Button и Label (и все это новый компонент). Как правильно создать данный компонент?

При добавлении компонент внутрь вашего компонента-контейнера, компоненты автоматически получают вас как владельца и как родителя. А уже ваш компонент управляет расположением этих компонент внутри себя и их жизненным циклом.

саша40, только Owner не self а panel1.

[Vapaamies]

Сообщение от xxxkrikxxx

Давайте разберем для примера ситуацию, когда нужно сделать TPanel на которой нужно сделать Button и Label (и все это новый компонент).

Честно говоря, я уже забыл, как это делается. Предлагаю посмотреть исходники TLabeledEdit самостоятельно.

[саша40]

Сообщение от Человек_Борща

саша40, только Owner не self а panel1.

Спасибо. Учту в будущем.

[саша40]

Автор, ты ещё с нами или уже ушел?