anchor.diff:    DoEvent(-1, FEventOnMouseExit, AppVariantNil);
   end;
   
  -procedure TFormDummy.DoOnFormActivate(Sender: TObject);
  -begin
  +procedure TFormDummy.Activate;
  +begin
  +  inherited;
     DoEvent(-1, FEventOnActivate, AppVariantNil);
   end;
   
  -procedure TFormDummy.DoOnFormDeactivate(Sender: TObject);
  -begin
  +procedure TFormDummy.Deactivate;
  +begin
  +  inherited;
     DoEvent(-1, FEventOnDeactivate, AppVariantNil);
   end;
   
  
positive.code:   OnCloseQuery:= @DoOnFormCloseQuery;
    OnKeyDown:= @DoOnFormKeyDown;
    OnKeyUp:= @DoOnFormKeyUp;
    OnActivate:= @DoOnFormActivate;
    OnDeactivate:= @DoOnFormDeactivate;
    OnMouseEnter:= @DoOnFormMouseEnter;
    OnMouseLeave:= @DoOnFormMouseLeave;
    OnWindowStateChange:= @DoOnFormWindowStateChange;
  
negative.code:   protected
      procedure DoShow; override;
      procedure DoHide; override;
      procedure Activate; override;
      procedure Deactivate; override;
    public
      IsDlgCustom: boolean;
      IsDlgModalEmulated: boolean;
  