增加通知栏图标及菜单

src/view/tmainform.pas

@@ -5,7 +5,8 @@ unit TMainForm;
 interface
 
 uses
-  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
+  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls,
+  Menus;
 
 type
 
@@ -14,6 +15,14 @@ type
   // BorderStyle 控制窗体是否有最大化最小化按钮
   TMainUI = class(TForm)
     MainEdit: TEdit;
+    MainTrayIcon: TTrayIcon;
+    ExitMenu: TMenuItem;
+    SettingsMenu: TMenuItem;
+    ShowOrHideMenu: TMenuItem;
+    TrayPopupMenu: TPopupMenu;
+    procedure ExitMenuClick(Sender: TObject);
+    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+    procedure ShowOrHideMenuClick(Sender: TObject);
   private
 
   public
@@ -27,4 +36,17 @@ implementation
 
 {$R *.lfm}
 
+{ TMainUI }
+
+procedure TMainUI.ShowOrHideMenuClick(Sender: TObject);
+begin
+  MainUI.Visible := not MainUI.Visible;
+end;
+
+procedure TMainUI.ExitMenuClick(Sender: TObject);
+begin
+  MainUI.Close();
+end;
+
+
 end.