begin
     p := FParent;
     {$ifndef SUPER_PARENT}
     while not p.isForm do p := p.Parent;
     {$endif}
     if p.ModalForm ‹› Control then
       Control.Hide
     else Control.ModalResult := -1;
    end;

function THIMainForm._onClose;
var i:integer;
    //p:PControl;
begin
   Result := true;

   if Accept and(ToIntegerEvent(_data_Close)‹›0) then exit;
   for i := 0 to Control.ChildCount-1 do
     with Control.Children[i]{$ifndef F_P}^{$endif} do
       if isForm then Perform(WM_CLOSE,0,1);
   if CurForm ‹› nil then
     PostMessage(CurForm.Handle,WM_ACTIVATE,WA_ACTIVE,0 );
   CurForm := nil;
   
   if isMain then
    begin
     Result := false;
     _hi_OnEvent(_event_onClose);
//     EventOff;
    end
   else
    begin
	 //Fix 09.11.2025 sla8a
     if Control.Modal then 
	   Control.ModalResult := -1
	 else
	   Control.Hide;
     //p := FParent;
     //{$ifndef SUPER_PARENT}
     //while not p.isForm do p := p.Parent;
     //{$endif}
	 //if p.ModalForm ‹› Control then
     //  Control.Hide
     //else Control.ModalResult := -1;
	end;
  SavePosition;
  Showed := False;
end;

Add(MainForm,13496199,329,203)
{
 Width=560
 Height=385
 Caption="Главная форма"
}
Add(Button,1875975,385,203)
{
 Left=135
 Top=130
 Width=260
 Height=40
 Caption="Открыть дочернее окно"
 link(onClick,14474557:doShowModal,[])
}
Add(ChildFormEx,14474557,462,203)
{
}
BEGIN_SDK
  Add(EditMultiEx,7301879,21,21)
  {
   WorkCount=#11:doShowModal|
   Width=587
   Height=431
   link(doShowModal,14415229:doShowModal,[(87,27)(87,160)])
  }
  Add(MainForm,14415229,154,126)
  {
   Left=35
   Top=105
   Width=335
   Height=251
   Visible=1
   Caption="Первая дочерняя"
   Point(doShowModal)
  }
END_SDK
Add(ChildFormEx,14981753,462,133)
{
}
BEGIN_SDK
  Add(EditMultiEx,478346,21,21)
  {
  }
  Add(MainForm,1806220,35,105)
  {
   Left=550
   Position=2
  }
  Add(Label,4907459,203,91)
  {
   Left=200
   Top=90
   Align=5
   Caption="Окно которое должно остаться доступным после вызова модального"
   Alignment=2
   VerticalAlign=0
  }
END_SDK

  //Control.ShowModalParented(p);
  Control.ShowModal;