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