Пытаюсь свелать предка TDataModule...

← →
Slym (2002-04-23 11:27) [0]

Пытаюсь свелать предка TDataModule...
Необходимо сделать массив дата модулей...
Дата модули с разным наполнением, в каждом датамодуле есть стандартные для всех процедуры, типа Get то-то set то-то
Делаю предка:
TDM = class(TDataModule)
public
procedure get;
procedure set;
end;

Предка он (дельфи) принимает за форму!?! и пытается присвоить ей цвет, шрифт и пр. но этого у TDataModule и у TDM нету.
При запуске выдает ош. типа: ерорр ацесс реад проперти колор, фонт и пр.

← →
Johnmen © (2002-04-23 11:31) [1]

так это же потомок !.... :)

← →
Slym (2002-04-23 11:39) [2]

Да но потомок от TDataModule, фактически мне нужно расширить TDataModule парой тройкой процедур, он потомок так и должен остаться Дата модулем, но он превращается в форму!

← →
Slym (2002-04-23 11:40) [3]

Прошу прощение ИМЕННО ПОТОМКА, а не предка (ошибся)

← →
Alexandr © (2002-04-23 11:44) [4]

как это так?
А как ты потом экземпляр создаешь?

← →
Slym (2002-04-23 11:59) [5]

Как? Как любой дата модуль (загляни в project source)
application.createForm(TDM,DM);
но и просто DM:=TDM.create(nil); не фурычит...
для начала просто нажмите F12 и посмотрите во что превратился дата модуль

← →
Slym (2002-04-23 12:03) [6]

И еще вообще-то:
type
TLevel1 = class(TDM)//подменяю предка на свой
database1= TDataBase;
table1 = TTable;

и так далее, просто у стандартно созданного дата модуля подменяю предка на свой "продвинутый"

← →
Alexandr © (2002-04-23 12:08) [7]

DM:=TDM.create(nil);
вот это правильно.

А вообще-то накуралесил ты чего-то, а код приводить не хочешь...

← →
Slym (2002-04-23 12:12) [8]

Нет, ты посмотри в исходники проекта, дата модуль создается именно как createForm...

← →
Slym (2002-04-23 17:45) [9]

Эй, читай сюда!
Кто нибудь! Никто не знает как мне расширить дата модуль парой процедур?

← →
Yuvich © (2002-04-23 18:24) [10]

>Slym
Бага известная.

Я делаю так. Создаю TDataModule - предка как обычно.
Далее создаю TDataModule - потомка как обычно. Делаю сохранение в файл, но при этом не закрываю файл TDataModule (а то и произойдет эта бага). Далее открываю форму потомка как текст и вместо
object Dm...: TDm... пишу inherited Dm...: TDmBDoc...

Далее как обычно.

← →
Slym (2002-04-24 10:24) [11]

Поточнее и без точек...

Точнее:
Создаешь DataModule - предок. Сохраняешь под нужным именем (как любой модуль).
Открываешь Пункт меню File|New|Other (Delphi 6) - запускается визард создания NewItem. Переходишь на закладку своего проекта и выбираешь только-что созданный DataModule. Внизу тыкаешь в радио кнопку Inherit и нажимаешь OK. Все.

← →
Slym (2002-04-25 05:56) [13]

Inherit - что это... Всмысле принудительно включить граф. интерфейс родителя?

← →
Slym (2002-04-27 06:42) [14]

Не пашет инхерит... Потомка создает, компилируется...
Но если переоткрыть проект и скомпилиться снова вылазит орорр!

Пытаюсь свелать предка TDataModule... Найти похожие ветки