Проблема с Объектами в форме 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

Проблема с Объектами в форме MDI -приложения Найти похожие ветки