add Trayicon

Author: lobtao

Win32/debug/browse.exe

@@ -109,6 +109,7 @@ object frmMain: TfrmMain
     MenusAlphaBlendAnimation = False
     MenusAlphaBlendValue = 200
     SkinData = dbMoudle.spSkinData1
+    MenusSkinData = dbMoudle.spSkinData1
     MinHeight = 0
     MinWidth = 0
     MaxHeight = 0
@@ -122,4 +123,21 @@ object frmMain: TfrmMain
     Left = 72
     Top = 56
   end
+  object spTrayIcon1: TspTrayIcon
+    AnimateTimerInterval = 0
+    IconIndex = 0
+    PopupMenu = spSkinPopupMenu1
+    MinimizeToTray = True
+    OnDblClick = spTrayIcon1DblClick
+    Left = 72
+    Top = 352
+  end
+  object spSkinPopupMenu1: TspSkinPopupMenu
+    Left = 72
+    Top = 416
+    object mnExitApp: TMenuItem
+      Caption = #36864#20986
+      OnClick = mnExitAppClick
+    end
+  end
 end

Win32/debug/niu_new.exe

@@ -8,16 +8,21 @@ interface
   Controls, Forms, SkinData, DynamicSkinForm,
   uCEFChromium,
   uframeChrome,
-  Dialogs, StdCtrls;
+  Dialogs, StdCtrls, ExtCtrls, spTrayIcon, Menus, SkinMenus;
 
 type
   TfrmMain = class(TForm)
     frameChrome1: TframeChrome;
     DSF: TspDynamicSkinForm;
+    spTrayIcon1: TspTrayIcon;
+    spSkinPopupMenu1: TspSkinPopupMenu;
+    mnExitApp: TMenuItem;
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
+    procedure spTrayIcon1DblClick(Sender: TObject);
+    procedure mnExitAppClick(Sender: TObject);
   private
     { Private declarations }
     // 加载主页，因为不能直接加载PHP，
@@ -98,8 +103,6 @@ procedure TfrmMain.FormDestroy(Sender: TObject);
 procedure TfrmMain.FormShow(Sender: TObject);
 begin
   frameChrome1.setInfo(Self, unConfig.FIndexUrl);
-
-  
 end;
 
 procedure TfrmMain.loadMainConfig;
@@ -110,6 +113,18 @@ procedure TfrmMain.loadMainConfig;
 
 end;
 
+procedure TfrmMain.mnExitAppClick(Sender: TObject);
+begin
+  Application.Terminate;
+end;
+
+procedure TfrmMain.spTrayIcon1DblClick(Sender: TObject);
+begin
+  Self.Show();
+  Self.WindowState := TWindowState.wsNormal;
+  Application.BringToFront(); // 前靠
+end;
+
 initialization
 
 end.