anchor.diff:      FInitOK: Boolean;
       FIcons: TList<TIconInfo>;
       FTrayData: TNotifyIconData;
  +    FIsMouseHover: Boolean;
  +    FIsNcMouseEnter: Boolean; // û취Ӹж
       procedure CreateRadioButton(const AName: string);
       procedure ShowPage(AIndex: Integer);
       procedure AddIcon(AIcon: TIconInfo);
  
positive.code: end;
  
  procedure TAppsWindow.DoHandleMessage(var Msg: TMessage; var bHandled: BOOL);
  begin
    inherited;
    case Msg.Msg of
      WM_DROPFILES:
       begin
         //TDropStruct
         // ļϷ
       end;
      WM_TRAYICON_MESSAGE:
       begin
         case Msg.LParam of
  
negative.code:          WM_LBUTTONDBLCLK:;
         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
  