anchor.diff:  begin
     inherited SetObjectUpdateMoment(AValue);
     if View <> nil then
  +  begin
       if ObjectUpdateMoment in [ouOnChange,ouCustom] then
         View.OnChange := @DoOnChange
       else
         View.OnExit := @DoOnChange;
  +    if ObjectUpdateMoment in [ouNone] then
  +    begin
  +      THackbaseEdit(View).OnChange := nil;
  +      THackbaseEdit(View).OnExit := nil;
  +    end;
  +  end;
   end;
   
   constructor TtiCheckBoxMediatorView.Create;
  
positive.code: begin
    inherited SetObjectUpdateMoment(AValue);
    if View <> nil then
      if ObjectUpdateMoment in [ouOnChange,ouCustom] then
        View.OnChange := @DoOnChange
      else
        View.OnExit := @DoOnChange;
  end;
  
  constructor TtiCalendarComboMediatorView.Create;
  
negative.code: begin
    inherited SetObjectUpdateMoment(AValue);
    if View <> nil then
    begin
      if ObjectUpdateMoment in [ouOnChange,ouCustom] then
        View.OnChange := @DoTrackBarChanged   // TfpgTrackBar has a different event signature
      else
        View.OnExit := @DoOnChange;
      if ObjectUpdateMoment in [ouNone] then
      begin
        THackbaseEdit(View).OnChange := nil;
        THackbaseEdit(View).OnExit := nil;
      end;
    end;
  end;
  
  constructor TtiTrackBarMediatorView.Create;
  