Форум: "Основная";
Текущий архив: 2003.05.12;
Скачать: [xml.tar.bz2];
ВнизПроблема с Объектами в форме MDI -приложения Найти похожие ветки
← →
Петр (2003-04-29 09:57) [0]Добрый день, уважаемые знатоки.
Есть еще один вопрос, ответ на который я не смог найти в литературе.
Пишу MDI-приложение. Имею дочернюю форму. В разделе Public прописал переменную PersonalData.
unit Childwin;
type
TMDIChild = class(TForm)
PageControl1: TPageControl;
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
LastSheetIndex : Integer;
CLIENT_WIDTH,
CLIENT_HEIGHT : Integer;
public
PersonalData : TPersonalData;
{ Public declarations }
published
end;
Когда я работаю с формой, этот объект создаю, а когда форма закрывается, соответственно память под этот объект освобождается. Все хорошо, но есть проблема.
Имеется другой модуль Unit2, в котором описаны классы TPersonalData, TGroup.
TPersonalData = Class(TObject)
// ОПИСАНИЕ КЛАССА
End; { TPersonalData }
TGroup = Class(TObject)
Function GetAverageComponent(Code: Byte) : Real;
End; {TGroup}
В методе класса TGroup мне нужно достучаться до объекта PersonalData, который указан в разделе Public формы TMDIChild.
Есть свойство MainForm.MDIChildren[i], которое возвращает объект дочерней формы, однако при возвращении данного объекта в нем нет моей переменной PersonalData. Может это нельзя реализовать в контекстре MDI технологии?
Важный момент: данные класса TPersonalData должены быть привязаны к дочерней форме, получается своего рода массив классов TPersonalData, при открытии некоторого количества дочерних форм.
Может кто сталкивался с подобной проблемой?
С уважением,
Петр.
← →
Digitman (2003-04-29 10:24) [1]MyPersonalData := (MainForm.MDIChildren[i] as TMDIChild).PersonalData
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.05.12;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c