O Screen.DataModuleCount

← →
Question (2002-07-09 09:36) [0]

Да похоже никто не знает О Screen.DataModuleCount а я ещё глупым псивдонимом прокрываюсь, похоже как всегда надо решать проблему самому и потратить много времени
(вопрос был ниже задан)

← →
Question (2002-07-09 09:37) [1]

вызываю функцию i:=Screen.DataModuleCount но она мне возвращает 0, хотя заранее мне известно что в проложении не один DataMadule.
Дополнительно могу сказать что использую MIDI формы.

← →
Eugene Lachinov © (2002-07-09 09:51) [2]

А как создаются DataModule в программе ?

← →
Question (2002-07-09 10:03) [3]

Пара штук создаются в начале работы как AutoCreateForms
остальные в виде пары Form"a -DataModule.
По началу и я думал что всё просто и где то я промахнулся.
Но самое интересное заключается в том что на других тестовых программах(по этому случаю всё выходит просто OK) по этому я не случайно здесь т.к. в основном я даю советы

← →
Digitman © (2002-07-09 10:07) [4]

Screen.DataModuleCount возвращает тек.значение сч-ка объектов класса TDataModule, созданных с параметром Owner = Application

← →
Question (2002-07-09 10:18) [5]

Вот что я отвечу:
я прогонял счётчик по Application.ComponentCount
Те модули которые создавались как AutoCreateForms
и те для которых я устанавливаю Owner = Application
в массиве Application.Components находятся.
Да так тоже можно извратится НО...
Почему же всё же Screen.DataModuleCount=0
и почему в других приложениях всё выходит нормально.
Где тот промах который я сделал? Где эта тонкость?

← →
Eugene Lachinov © (2002-07-09 10:30) [6]

Проверьте состояние переменной @Classes.AddDataModule на момент создания DataModule-й, все таки лучше кусок кода описания DataModule-й, а то опять играем в "угадайку"

← →
Fiend © (2002-07-09 10:34) [7]

А если не секрет, зачем нада знать количество датамодулей в проге?

И зря вы кстати скрываетесь!!!

Вопрос не лоховской, и задали вы его КОНКРЕТНО.

← →
Digitman © (2002-07-09 10:38) [8]

TScreen = class(TComponent)
...
FDataModules: TList;
...
procedure AddDataModule(DataModule: TDataModule);
...
property DataModuleCount: Integer read GetDataModuleCount;
end;

procedure TScreen.AddDataModule(DataModule: TDataModule);
begin
FDataModules.Add(DataModule);
end;

constructor TDataModule.CreateNew(AOwner: TComponent; Dummy: Integer);
begin
inherited Create(AOwner);
Screen.AddDataModule(Self); // даже Owner, оказывается, роли не играет
end;

отсюда - простейший вывод : модуль данных регистрируется в списке, контролируемом объектом Screen, если он создается вызовом конструктора CreateNew(). А этот конструктор, в свою очередь, всегда вызывается в контексте TDataModule.Create()

Так что, если модуль данных содается на базе TDataModule и его конструктор Create() не переопределен (или переопределен, но вызывает inherited Create()), то модуль будет зарегистрирован ВСЕГДА.

← →
Question (2002-07-09 10:45) [9]

Ребята про код говорить можно лишь следующее:
a) Application.CreateForm(TREALEAST, REALEAST)
b) modul_Contractor:=Tmodul_Contractor.Create(self);
про @Classes.AddDataModule попробую.

← →
Question (2002-07-09 10:51) [10]

С другой стороны действительно чем @Classes.AddDataModule лучше конструктора TDataModule.Create();

← →
Andrey007 (2002-07-09 11:13) [11]

Странно, у меня в программе 1 DataModule и ShowMessage(IntToStr(Screen.DataModuleCount)) выдаёт 1.

никаких несуразиц быть не должно, если у тебя
Tmodul_Contractor = class(TDataModule). И никаких @Classes.AddDataModule не нужно вызывать - это делается автоматически вирт.конструктором TDataModule.
Ты определял конструктор Tmodul_Contractor.Create() ? Приведи-ка его реализацию - скорей всего ты не вызываешь в нем inherited Create(Owner)

O Screen.DataModuleCount Найти похожие ветки