MDI приложение

← →
Dmitriy Polskoy © (2002-09-18 14:28) [0]

Ситуация такая: есть MDI приложение. Каждая дочерняя форма создается как экземпляр некой формы TMDIChild. В этой форме создаются стринглисты, данные из которых отображаются в StringGrid. Эти стринглисты уничтожаются после закрытия формы. Но возникает проблема - когда я закрываю хоть одну форму, то возникает ошибка доступа к памяти. Подскажите, что надо сделать, чтобы такого небыло?

← →
REA (2002-09-18 14:30) [1]

Код нужен обработчиков MDI формы. Убиваешь наверно что-то раньше времени. Пройдись отладчиком.

← →
Digitman © (2002-09-18 14:33) [2]

> ошибка доступа к памяти

На какой строчке ?

← →
Dmitriy Polskoy © (2002-09-18 14:37) [3]

Вот кусок кода из процедуры обработки OnDrawCell
if ShowListParam.Strings[l_Row - 1][1] = "#" then
begin
grdShowData.RowHeights[l_Row] := 22;
Canvas.Brush.Color := clYellow;
Canvas.Font.Style := Canvas.Font.Style + [fsBold];
Canvas.Font.Size := 11;
end
Ошибка выскакивает на первой строке, т.е. такое впечатление, что когда я убиваю одну форму, то уничтожаются все стринглисты во всех дочерних окнах.

← →
Dmitriy Polskoy © (2002-09-18 14:51) [4]

Мне кажется я понял в чем ошибка - я создаю экземпляры форм используя одну и ту же переменную(Child: TMDIChild). Поэтому когда я закрываю хоть одну форму, то все данные уничтожаются.
В этом случае возникает следующий вопрос - как организовать перечень имен(ну, можно массивом, конечно) и как сказать главной форме с каким именем работать в данный момент?

← →
Digitman © (2002-09-18 14:56) [5]

имен чего ?

← →
Dmitriy Polskoy © (2002-09-18 15:06) [6]

Имен дочерних форм.
Еще вот попробывал удалять стринглисты в момент закрытия главной формы. Предыдущий глюк изменился - теперь после закрытия одной из форм ругается при обращении к свойствам таблицы

← →
Digitman © (2002-09-18 15:14) [7]

> Имен дочерних форм.

А зачем они тебе нужны ? разве ты по имени обращаешься к методам/св-вам/событиям формы ? ты обращаешься к переменной, имеющий тип "класс доч.формы" и хранящей ссылку на "экземпляр доч.формы".
Так и заведи себе переменную типа массив, и при создании очер.доч.формы заполняй очередной эл-т массива ссылкой на экз-р формы ! А обращаться будешь так : МойМассив[i-й элемент].Caption := ...
А при уничтожении доч.формы просто не забудь уничтожить и соответствующий эл-т массива

← →
Старый Паскалист (2002-09-18 15:20) [8]

2Digitman ©
Вообще-то, такой массив уже есть: Form.MDIChildren[I];

← →
Dmitriy Polskoy © (2002-09-18 15:24) [9]

2 Старый Паскалист (18.09.02 15:20)
Да, но как узнать индекс активной формы?

← →
Digitman © (2002-09-18 15:30) [10]

>Старый Паскалист

Да мало ли чего еще есть) ... можно и им воспользоваться (кто ж спорит ?), можно и свой собственный массив вести в дополнение и ли как альтернатива ...

Св-во MDI-формы ActiveMDIChild возвратит тебе ссылку на активную доч.форму ... ищи эту ссылку, скажем, перебирая в цикле эл-ты того же массива MDIChildren[] - индекс совпадающего эл-та и есть индекс ссылки на активную доч.форму, хранящейся в дан.массиве

← →
Dmitriy Polskoy © (2002-09-18 15:32) [11]

2 Digitman © (18.09.02 15:14)
Проблема как раз в том, что при создании нескольких форм переменная, имеющая тип "класс доч. формы" будет ссылаться на НЕСКОЛЬКО экземпляров форм. И при уничтожении одного все данные падают.

← →
Dmitriy Polskoy © (2002-09-18 15:43) [12]

Я извиняюсь, что может быть не коректно выссказал задачу. Есть главная форма, внутри которой есть переменная Child: TMDIChild (c типом доч. формы). При нажатии на кнопку Open происходит: Child := TMDIChild.Create(Application);
Каждая доч. форма имеет в себе стринглисты, в которые читаются данные РАЗНЫЕ для каждой формы. Т.е. это не классичесское MDI-приложение. Получается, что при каждом создании доч. формы перекрывается текущее значение указателя Child. Видите в чем проблема?

← →
Старый Паскалист (2002-09-18 15:54) [13]

>Есть главная форма, внутри которой есть переменная Child: >TMDIChild (c типом доч. формы).

Вот этого-то как раз делать нельзя. Категорически.
Общайтесь с детьми через зендер или через МДИЧилдрен

← →
Digitman © (2002-09-18 15:57) [14]

> Видите в чем проблема?

А как же ! Видим-видим)....

И кто ж тебя заставляет "наступать на грабли" , выполняя N раз вот это : Child := TMDIChild.Create(Application) ? Зачем тебе эта самая переменная Child нужна-то ?

"безграбельных" вариантов-то как минимум два :

1. TMDIChild.Create(Application);
ссылка на доч.форму фиксируется автоматически во вновь создаваемом эл-те встроенного массива MDIChildren[], через этот элемент в последствии и обращайся к дан.экз-ру класса доч.формы

2. МойМассив[i] := TMDIChild.Create(Application);
Кроме доступа к новой форме по варианту 1 можешь в последствии обращаться к этой же форме как к i-му элементу собственного массива МойМассив[]

← →
Dmitriy Polskoy © (2002-09-18 16:00) [15]

2 Старый Паскалист (18.09.02 15:54)
Простите за тупой вопрос(никогда не писал на Дельфи MDI-приложения), но как это сделать?

← →
Dmitriy Polskoy © (2002-09-18 16:09) [16]

2 Digitman © (18.09.02 15:57)
Все равно выскакивает первая ошибка.

← →
Digitman © (2002-09-18 16:27) [17]

Что есть ShowListParam ? Где и как объявлен/инициализируется ?

2 Digitman © (18.09.02 16:27)
ShowListParam - это стринглист. Пержде чем его заполнить, я заполняю другой стринглист данными из файла(а путь к файлу беру из OpenDialog). Т.е. я нажимаю на кнопку Open на главной форме,
вызывается OpenDialog, из него я читаю путь, затем создаю экземпляр дочерней формы, затем в дочерней форме в стринглист читаю данные из файла, произвожу кой-каие вычисления и заношу их
в ShowListParam(из него данные отображаются в StringGrid). В процедуре закрытия доч. формы я уничтожаю все стринглисты.

Ну где объявлен-то ?в каком модуле ? в модуле доч.формы ? или где ? и в каком разделе модуля ?

Вроде исправил глюк, перенеся объявление из Var-а модуля доч. формы в ее класс. А создаю через
> TMDIChild.Create(Application);

Но теперь из главной формы не могу доступиться к методам дочерней формы. ActiveMDIChild и ActiveMDIChild не возвращают указателя именно на мой класс формы.

← →
Старый Паскалист (2002-09-18 17:17) [21]

>Вроде исправил глюк, перенеся объявление из Var-а модуля доч. >формы в ее класс.

Понятненько...
Вообще не используй глобальные данные без особой необходимости.

>ActiveMDIChild и ActiveMDIChild не возвращают указателя именно >на мой класс формы.

(ActiveMDIChild as TYourMDIChildForm).MethodOfYourMDIChild;
или
with (ActiveMDIChild as TYourMDIChildForm) do...

>Dmitriy Polskoy

Ну дык !))
Почуял разницу ? Аль нет ?)

P.S.

Слухай <Старого Паскалиста>, он - ста-а-а-арый паскалист !!))))(

2 All
Ой, спасибо, ой, помогли. На самом деле - СПАСИБО.

да не за что)...

носи - не стаптывай !)))))

← →
Старый Паскалист (2002-09-18 19:15) [25]

MDI приложение Найти похожие ветки