anchor.diff:              //CharacterMapFormChanged(nil);
               Window.Parent := nil;
               pages.Pages[i].Free;
  +            ActivateActiveChild;
               FocusActiveChild;
   
               if FIsClosing then
  
positive.code:   end;
  end;
  
  procedure TfrmKeymanDeveloper.pagesChange(Sender: TObject);
  begin
    inherited;
    //CharacterMapFormChanged(ActiveChild);
    if Assigned(ActiveChild) then
    begin
      //if ActiveChild.SetFocus;
      SendMessage(ActiveChild.Handle, CM_ACTIVATE, 0, 0);
      if ActiveChild.Visible and Visible and CanFocus then ActiveChild.SetFocus;
    end;
  
    cbTextFileFormat.Enabled := Assigned(ActiveChild) and (ActiveChild is TfrmTikeEditor);   // I3733
    FocusActiveChild;
  
negative.code:     procedure LoadDockLayout;
      procedure SaveDockLayout;
      procedure CEFShutdownComplete(Sender: TObject);
      procedure ActivateActiveChild;
  
    protected
      procedure WndProc(var Message: TMessage); override;
  