У немодального дизайнера те же проблемы

Sergey_K

Если в приложении дизайнер отчетов открывается кнопкой на форме, которая открыта модально, то окно инспектора ведет себя так же как если бы дизайнер в коде модуля FRXClass вызывался методом ShowModal:
окно инспектора закрывает окно редактора SQL и т.д.

В частности, это наблюдается если Preview - модальный и пользователь нажимает кнопку "Редактировать отчет".

Хорошо бы решить эту проблему. Может быть не очень трудно сделать как в версии 2.53? FastReport - действительно лучший генератор отчетов для Delphi, но из-за таких недоработок я не могу им пользоваться.

Сергей Ковязин.

AlexTZ

В версии 2.х было проще - не было окон, которым можно делать dock.

Sergey_K

А нельзя пожертвовать Dock-ом?
Модальность формы, из которой открывается дизайнер критически важна по логике задачи.

AlexTZ

Да я б лучше пожертвовал возможностью делать таким окнам undock. Ведь в таком режиме все работает и никто никого не заслоняет.

Sergey_K

А как это сделать? (Как принудительно установить режим, при котором все эти окна docked, и чтобы пользователь не мог это изменить?)

Sergey_K

Я для себя нашел решение: форма, на которой сидит кнопка вызова дизайнера, открывается не модально, а "псевдомодально". Код подобен тому, которым открывается сам дизайнер в модуле FRXClass.

Вот процедура (может кому пригодится):

// Создание формы заданного типа и отображение ее псевдомодально
procedure ShowFormAsPseudoModal(FormClass: TFormClass);
type TFormList = Record
Form:TForm;
DoDisable:boolean;
end;
var i, L:integer; F:TForm; FormList:array of TFormList;
begin
// запоминаем активную форму
F:=Screen.ActiveForm;
// Создаем массив ссылок на открытые формы на экране
// и запоминаем, какие из них сделаны disabled
L:=Screen.FormCount;
SetLength(FormList, L);
for I:= 0 to L-1 do
begin
FormList.Form:=Screen.Forms;
FormList.DoDisable:=(FormList.Form.Visible and FormList.Form.Enabled);
if FormList.DoDisable then FormList.Form.Enabled:=false;
end;
// Создаем новую форму
try
with FormClass.Create(Application) do
begin
try
if FormStyle<>fsNormal then FormStyle:=fsNormal;
if visible then Hide;
Show;
while Visible do Application.HandleMessage;
finally
try
Free;
except
end;
end;
end;
finally
// Делаем Enabled формы сделанные Disabled
for I:= 0 to L-1 do
if ((FormList.Form <> nil) and FormList.DoDisable)
then FormList.Form.Enabled:=true;
if F <> nil then
begin
if not F.Enabled then F.Enabled:=true;
if (F.Visible and not F.Focused) then F.SetFocus;
end;
end;
// освобождаем память
FormList:=nil;
end;