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

Как созданный класс сделать дочерним классу TForm?   Найти похожие ветки 

← →
allucard   (2007-04-16 10:32) [0]

Доброго времени суток.
Есть трабла.

Есть класс с некоторыми новыми свойствами.
Если этот класс описать внутри класса TForm1 выдаёт запрос:
"Field Form1.NewClass  does not have a corresponding component. Remove the declaration"

NewClass - наследник класса TComponent.

Как создать свой класс чтоб он был дочерним у формы или другого обьекта?
(например как TButton у класса TForm когда бросаешь на форму кнопку).
Спасибо.

---

← →
Kolan ©   (2007-04-16 10:38) [1]

Как создать свой класс чтоб он был дочерним у формы или другого обьекта?
Зарегистрировать? см. процедуру Register

"Field Form1.NewClass  does not have a corresponding component. Remove the declaration"
Помести описание поля в другую секцию, например private.

---

← →
allucard   (2007-04-16 10:43) [2]

> Помести описание поля в другую секцию, например private.

Спасиб. Поместил. Не вылазит.
А что ему не нравилось?


> Как создать свой класс чтоб он был дочерним у формы или
> другого обьекта?
> Зарегистрировать? см. процедуру Register

А иначе. Ну не регистрируя, просто гдето мне кажется поле Owner нужно вбить этот компонент?

---

← →
Kolan ©   (2007-04-16 11:11) [3]

> А что ему не нравилось?

Туда куда ты добавил среда добавляет компоненты, брошеные тобой на форму. Соотв она смотрит объявление есть, а «corresponding component»"а нет. Вот и ркгается.


> Ну не регистрируя, просто гдето мне кажется поле Owner нужно
> вбить этот компонент?

Ну как обычно. Объявил:
 FMyField: TComponent;
В OnCreate, например, формы:
 FMyField := TComponent.Create(Self);
Если это контрол, то не забудь Parent указать&#133

---

← →
{RASkov}   (2007-04-16 11:53) [4]

> А что ему не нравилось?

А не нравилось, то что описанный класс/компонент в неявной секции паблишед, искался в DFM файле, а его там нет...

---

← →
allucard   (2007-04-16 12:11) [5]

> {RASkov}   (16.04.07 11:53) [4]

ундерстенд.

---

← →
{RASkov}   (2007-04-16 12:54) [6]

> [5] allucard   (16.04.07 12:11)
> ундерстенд.

Это что?

---

← →
deus krid   (2007-04-16 13:07) [7]

2{RASkov}
я так понял, он все понял =) и шлет тебе хвалебные оды
(ундерстенд = understand)

---

← →
{RASkov}   (2007-04-16 13:12) [8]

> [7] deus krid   (16.04.07 13:07)
> understand

А-а-а. understand. Промт перевел - Понять. :)

---

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

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



Память: 0.46 MB
Время: 0.012 c