anchor.diff:    IdClicked:= -1;
     TagString:= '';
   
  -  OnClose:= @DoOnFormClose;
  -  OnCloseQuery:= @DoOnFormCloseQuery;
     OnKeyDown:= @DoOnFormKeyDown;
     OnKeyUp:= @DoOnFormKeyUp;
     OnMouseEnter:= @DoOnFormMouseEnter;
  
positive.code:     procedure DoHide; override;
      procedure Activate; override;
      procedure Deactivate; override;
    public
      IsDlgCustom: boolean;
      IsDlgModalEmulated: boolean;
  
negative.code:   DoEvent(-1, FEventOnResize, AppVariantNil);
  end;
  
  function TFormDummy.CloseQuery: boolean;
  begin
    inherited;
    Result:= DoEvent(-1, FEventOnCloseQuery, AppVariantNil);
  end;
  
  procedure TFormDummy.DoOnFormWindowStateChange(Sender: TObject);
  