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