anchor.diff:           WM_LBUTTONDBLCLK:;
          end;
        end;
  -  end;
  +
  +    WM_EXITSIZEMOVE:
  +      begin
  +        GetWindowRect(Handle, R);
  +        if R.Top < 0 then
  +          SetWindowPos(Handle, HWND_NOTOPMOST, R.Left, 0, 0, 0,  SWP_NOREDRAW or SWP_NOSIZE)
  +        else if R.Right > GetScreenSize.cx then
  +          SetWindowPos(Handle, HWND_NOTOPMOST, GetScreenSize.cx - R.Width, R.Top, 0, 0,  SWP_NOREDRAW or SWP_NOSIZE)
  +        else if R.Left < 0 then
  +          SetWindowPos(Handle, HWND_NOTOPMOST, 0, R.Top, 0, 0,  SWP_NOREDRAW or SWP_NOSIZE);
  +      end;
  +
  +    WM_NCMOUSELEAVE: FIsNcMouseEnter := False;
  +    WM_MOUSEHOVER, WM_NCMOUSEMOVE :
  +     begin
  +       // Ϣյе
  +       if Msg.Msg = WM_NCMOUSEMOVE then
  +         FIsNcMouseEnter := True;
  +       if not FIsMouseHover then
  +       begin
  +         FIsMouseHover := True;
  +         Perform(WM_EXITSIZEMOVE);
  +       end;
  +     end;
  +
  +    WM_MOUSELEAVE :
  +     begin
  +       if FIsMouseHover and not FIsNcMouseEnter then
  +       begin
  +         GetWindowRect(Handle, R);
  +         if R.Top = 0 then
  +           SetWindowPos(Handle, HWND_TOPMOST, R.Left, -(R.Height - 5), 0, 0, SWP_NOREDRAW or SWP_NOSIZE)
  +         else if R.Right = GetScreenSize.cx then
  +           SetWindowPos(Handle, HWND_NOTOPMOST, GetScreenSize.cx - 5, R.Top, 0, 0, SWP_NOREDRAW or SWP_NOSIZE)
  +         else if R.Left = 0 then
  +          SetWindowPos(Handle, HWND_NOTOPMOST, -(R.Width - 5), R.Top, 0, 0,  SWP_NOREDRAW or SWP_NOSIZE);
  +         FIsMouseHover := False;
  +       end;
  +       if FIsNcMouseEnter then
  +         FIsNcMouseEnter := False;
  +     end;
  +  end;
  +  inherited;
   end;
   
   procedure TAppsWindow.DoInitWindow;
   begin
     inherited;
   end;
  +
   
   procedure TAppsWindow.DoNotify(var Msg: TNotifyUI);
   var
  
positive.code:   I: Integer;
  begin
    inherited Create('MainWindow.xml', 'skin\Apps');
    CreateWindow(0, 'Apps', UI_WNDSTYLE_EX_DIALOG, WS_EX_WINDOWEDGE or WS_EX_ACCEPTFILES);
    FDlgBuilder := CDialogBuilder.CppCreate;
    FIcons := TList<TIconInfo>.Create;
    for I := 0 to 34 do
      FIcons.Add(TIconInfo.Create('' + I.ToString, 'xiaoshuo.png'));
    FTrayData.Wnd := Handle;
    FTrayData.uID := FTrayData.Wnd;
    FTrayData.cbSize := Sizeof(TNotifyIconData);
  
negative.code: end;
  
  procedure TAppsWindow.DoHandleMessage(var Msg: TMessage; var bHandled: BOOL);
  var
    R: TRect;
  begin
    case Msg.Msg of
      WM_DROPFILES:
       begin
         //TDropStruct
         // ļϷ
       end;
  
      WM_TRAYICON_MESSAGE:
       begin
         case Msg.LParam of
  