anchor.diff:        WindowState:= wsNormal;
         Show;
       end;
  +
  +  if WindowState=wsMinimized then
  +    DoEvent(-1, FEventOnMinimize, AppVariantNil);
   end;
   
   procedure TFormDummy.DoOnControlMenu(Sender: TObject; MousePos: TPoint;
  
positive.code: interface
  
  uses
    Classes, SysUtils, Controls, Graphics, LMessages,
    StdCtrls, Forms, ComCtrls, ExtCtrls, Math,
    LCLType,
    LCLIntf,
  
negative.code:   DoEmulatedModalClose;
    IdClicked:= -1;
    DoEvent(-1, FEventOnClose, AppVariantNil);
  end;
  
  function TFormDummy.IdFocused: integer;
  