anchor.diff:    I: Integer;
   begin
     inherited Create('MainWindow.xml', 'skin\Apps');
  +  FIsMouseHover := True;
  +
     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'));
  +    AddIcon(TIconInfo.Create('' + I.ToString, 'xiaoshuo.png'));
     FTrayData.Wnd := Handle;
     FTrayData.uID := FTrayData.Wnd;
     FTrayData.cbSize := Sizeof(TNotifyIconData);
  
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:     FInitOK: Boolean;
      FIcons: TList<TIconInfo>;
      FTrayData: TNotifyIconData;
      FIsMouseHover: Boolean;
      FIsNcMouseEnter: Boolean; // û취Ӹж
      procedure CreateRadioButton(const AName: string);
      procedure ShowPage(AIndex: Integer);
      procedure AddIcon(AIcon: TIconInfo);
  