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