anchor.diff:      procedure Activate; override;
       procedure Deactivate; override;
       procedure DoClose(var CloseAction: TCloseAction); override;
  -    procedure LMSize(var Msg: TLMessage); message LM_SIZE;
     public
       IsDlgCustom: boolean;
       IsDlgModalEmulated: boolean;
  
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;
  