Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

O Screen.DataModuleCount

Question © (2002-07-09 09:36:00)
Да похоже никто не знает О Screen.DataModuleCount а я ещё глупым псивдонимом прокрываюсь, похоже как всегда надо решать проблему самому и потратить много времени
(вопрос был ниже задан)

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

Andrey007 (2002-07-09 11:13:00) [2]
Странно, у меня в программе 1 DataModule и ShowMessage(IntToStr(Screen.DataModuleCount)) выдаёт 1.

Question (2002-07-09 10:51:00) [3]
С другой стороны действительно чем @Classes.AddDataModule лучше конструктора TDataModule.Create();

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

Digitman (2002-07-09 10:38:00) [5]
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()), то модуль будет зарегистрирован ВСЕГДА.

Fiend (2002-07-09 10:34:00) [6]
А если не секрет, зачем нада знать количество датамодулей в проге?

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

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

Eugene Lachinov (2002-07-09 10:30:00) [7]
Проверьте состояние переменной @Classes.AddDataModule на момент создания DataModule-й, все таки лучше кусок кода описания DataModule-й, а то опять играем в "угадайку"

Question (2002-07-09 10:18:00) [8]
Вот что я отвечу:
я прогонял счётчик по Application.ComponentCount
Те модули которые создавались как AutoCreateForms
и те для которых я устанавливаю Owner = Application
в массиве Application.Components находятся.
Да так тоже можно извратится НО...
Почему же всё же Screen.DataModuleCount=0
и почему в других приложениях всё выходит нормально.
Где тот промах который я сделал? Где эта тонкость?

Digitman (2002-07-09 10:07:00) [9]
Screen.DataModuleCount возвращает тек.значение сч-ка объектов класса TDataModule, созданных с параметром Owner = Application

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

Eugene Lachinov (2002-07-09 09:51:00) [11]
А как создаются DataModule в программе ?

Question (2002-07-09 09:37:00) [12]
вызываю функцию i:=Screen.DataModuleCount но она мне возвращает 0, хотя заранее мне известно что в проложении не один DataMadule.
Дополнительно могу сказать что использую MIDI формы.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »