anchor.diff:    IdClicked:= -1;
     TagString:= '';
   
  -  OnShow:= @DoOnShow;
  -  OnHide:= @DoOnHide;
  -  OnClose:= @DoOnClose;
  -  OnCloseQuery:= @DoOnCloseQuery;
  -  OnKeyDown:= @DoOnKeyDown;
  -  OnKeyUp:= @DoOnKeyUp;
  -  OnActivate:=@DoOnActivate;
  -  OnDeactivate:=@DoOnDeactivate;
  -  OnMouseEnter:= @DoOnMouseEnter;
  -  OnMouseLeave:= @DoOnMouseLeave;
  +  OnShow:= @DoOnFormShow;
  +  OnHide:= @DoOnFormHide;
  +  OnClose:= @DoOnFormClose;
  +  OnCloseQuery:= @DoOnFormCloseQuery;
  +  OnKeyDown:= @DoOnFormKeyDown;
  +  OnKeyUp:= @DoOnFormKeyUp;
  +  OnActivate:= @DoOnFormActivate;
  +  OnDeactivate:= @DoOnFormDeactivate;
  +  OnMouseEnter:= @DoOnFormMouseEnter;
  +  OnMouseLeave:= @DoOnFormMouseLeave;
   
     PrevBorderStyle:= BorderStyle;
     PrevForms:= TList.Create;
  
positive.code:   inherited;
  end;
  
  procedure TFormDummy.DoOnShow(Sender: TObject);
  var
    C: TComponent;
    i: integer;
  
negative.code:   DoEvent(-1, FEventOnResize, '');
  end;
  
  procedure TFormDummy.DoOnFormCloseQuery(Sender: TObject; var CanClose: boolean);
  var
    Str: string;
  begin
  