Delphi JEDI TrayIcon Application

需先安裝 JEDI VCL for Delphi

加入元件
Jv Non-Visual -> JvTrayIcon
Standard -> PopupMenu
PopupMenu1 add MenuItem

設定元件屬性
MenuItem.Caption = Show
MenuItem.Name = Show1
JvTrayIcon1.Active = True
JvTrayIcon1.PopupMenu = PopupMenu1

// 加入 Show1 onclick 事件
procedure TForm1.Show1Click(Sender: TObject);
begin
  JvTrayIcon1.ShowApplication;
end;

// 加入 Form1 OnCreate 事件
procedure TForm1.FormCreate(Sender: TObject);
begin  
  JvTrayIcon1.HideApplication;
end;

執行程式後會直接隱藏到 TrayIcon 中
右鍵點 PopupMenu -> Show 還原視窗