Маленькая предистория:

В существующем проекте используется следующая схема создания форм:

•  есть Главная форма(далее MAIN) типа MDIForm. Это главная форма приложения, на ней меню с кучей пунктов.
•  реакция почти на каждый пункт меню Главной формы - открытие формы MDIChild на которой присутствует таблица с данными(далее GRID_FORM)
•  для каждой строки таблицы можно открыть форму редактирования данных(далее DATA_EDIT_FORM). форму редактирования можно открывать сколько угодно много раз одновременно.
•  при закрытии GRID_FORM все дочерние формы редактирования (DATA_EDIT_FORM) закрываются за счет того, что при их создании GRID_FORM указан владельцем:
  

  Код

  var   Form : TForm; begin ...   Form := TDATA_EDIT_FORM.Create(GRID_FORM); ... end;

Описание проблемы:

На форме GRID_FORM есть TActionList в котором есть несколько TAction для обработки горячих клавиш (ShortCut)
При сборке проекта в Delphi 7 действие горячих клавиш распространялось только на форму GRID_FORM (т.е. форму владельца TActionList)
При переходе на Delphi 2007 схема обработки горячих клавиш ломается, и они начинают ловиться в дочерних формах, что приводит к очень нежелательным последствиям.

На просторах интернета упоминание нашли тут Shortcuts dispatched recursively in Delphi2007

Пример проблемы:
В приложенном к данному сообщению файлику лежит исходный код тестового проекта и несколько собранных версий - одна в D7, другая в D2007.
Проект, собранный в D7 особого интереса не представляет, т.к. в нем все работает так, как ожидается.
А проект, собранный в D2007 ведёт себя как минимум странно:

• после открытия формы (аналог GRID_FORM) ShortCut в ней работает, но так же работает и в основной форме приложения, если фокус находится на её компонентах.
• после открытия двух форм(аналогов GRID_FORM)  в каждой срабатывает свой обработчик, но если фокус на основной форме приложения, то срабатывает обработчик формы, созданной первее.
• после создания двух форм(аналогов GRID_FORM) и в каждой из них дочерних форм(аналогов DATA_EDIT_FORM) нажатия горячих клавиш в них, так же, ведут себя странно...

Хочется в Delphi 2007 добиться поведения, аналогичного тому, что было...
Большая просьба, если кто-нибудь сталкивался с таким - отпишитесь!
Так же, если кто-либо знает решение, либо сталкивался с информацией по данному вопросу на просторах интернета - поделитесь решением/ссылками.

Присоединённый файл ( Кол-во скачиваний: 3 )
 testPrj.rar 365,46 Kb

В D2006 turbu

если написать 
TempForm := TForm2.Create(Application);//а не self

то не будет токого поведение  

Frees, в том то и дело, что необходимо именно описанное выше поведение, т.к. в дочерние формы (DATA_EDIT_FORM) в некоторых случаях передаются указатели на область памяти, где лежат данные. 
Таким образом закрытие основной формы (GRID_FORM) повлечет освобождение данной памяти и соответственно проблемы в формах (DATA_EDIT_FORM), если они не будут закрываться.
Все это криво конечно, если поразмыслить... но по факту так есть.

Да и чисто логически форма родитель должна закрывать своих потомков. То, что все формы будут уничтожаться при закрытии приложения - это как-то криво.

ShadeSt, TForm2.Create(Application); так создавать формы только GRID_FORM, а DATA_EDIT_FORM с указанием Self в кострукторе

получится закрыв GRID_FORM все  DATA_EDIT_FORM закроются

Это сообщение отредактировал(а) Frees - 8.9.2008, 06:21

Frees, спасибо!
Данное решение действительно решает описанную мной проблему.
Но тут есть другая проблемка... если ActionList будет на дочерней форме (на  DATA_EDIT_FORM), то его ShortCut 
будет обрабатываться и в GRID_FORM...

выход тут один создавать с другим овнером и убивать формы которые породил ручками