anchor.diff:  begin
     if AValue then
     begin
  +    FSkipResizeMessage := True;
       BringWindowToTop(FWinHandle);
   
       if FWindowType in [wtPopup] then
  
positive.code: 
    // the forms require some adjustments before the Window appears
    SetWindowParameters;
  end;
  
  procedure TfpgWindowImpl.DoReleaseWindowHandle;
  
negative.code: 
      WM_SIZE:
          begin
            if w.FSkipResizeMessage then
              Exit;
              
            // note that WM_SIZING allows some control on sizeing
            //writeln('WM_SIZE: wp=',IntToHex(wparam,8), ' lp=',IntToHex(lparam,8));
            msgp.rect.Width  := smallint(lParam and $FFFF);
  