anchor.diff:    TFormDummy = class(TForm)
     private
       IsFormShownAlready: boolean;
  -    procedure DoOnFormActivate(Sender: TObject);
  -    procedure DoOnFormDeactivate(Sender: TObject);
       procedure DoOnFormMouseEnter(Sender: TObject);
       procedure DoOnFormMouseLeave(Sender: TObject);
       procedure DoOnFormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  
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:   protected
      procedure DoShow; override;
      procedure DoHide; override;
      procedure Activate; override;
      procedure Deactivate; override;
    public
      IsDlgCustom: boolean;
      IsDlgModalEmulated: boolean;
  