(0)老式提示
（1）“氣泡提示”的制作
（2）動態圖示
（3）右鍵選單
(4)最小化和還原視窗
(0)老式提示,隨滑鼠指標的提示文本, 這是老式的, 下面有新型的
TrayIcon1.Hint:='asdfad';
（ 1 ）“氣泡提示”的制作
第一步：在表單中放置 TrayIcon 控制元件（ Additional 面板中可以找到），
第二步：設定 TrayIcon 的 Icon 圖示，載入一個 ICO 檔案，
第三步：設定 TrayIcon 的 BalloonHint 為“ Delphi10.3涂磊”，設定 BalloonTitle 為“托盤測驗”，設定 Visible 為 True ，
第四步：雙擊表單，在 OnCreate 事件中寫入下面代碼：
TrayIcon1.Animate:=true; TrayIcon1.BalloonFlags := bfInfo;//bfNone,bfInfo,bfWarning,bfError四種型別 TrayIcon1.Hint:=self.Caption; TrayIcon1.BalloonTitle:='提示'; TrayIcon1.BalloonHint:='請注意后電腦即將進入鎖定狀態.'; TrayIcon1.BalloonTimeout:=1000; TrayIcon1.Visible:=True; TrayIcon1.ShowBalloonHint;
好了， F9 運行程式，一個“氣泡提示”就會出現在圖示上，屬性中的 BalloonTimeout 是設定“氣泡提示”多少秒后消失，默認是 1秒，
（ 2 ）動態圖示
我們大家都知道，當有 QQ 訊息時，托盤中會有一個閃爍圖示，使用 TrayIcon 控制元件可以非常容易地實作這個功能，
使圖示動起來，其實就是使用多個圖示進行切換，QQ 的閃爍圖示，其實就是使用的兩個圖示來進行切換的，一個是頭像圖示，一個是空的圖示，
下面我們就來模擬 QQ 頭像閃爍功能：
第一步：在表單上放置 ImageList 控制元件（在 Win32 面板中可以找到），
第二步：設定 ImageList 控制元件的 Width 和 Height 屬性為 32 ，然后雙擊 ImageList ，點擊“ Add ”按鈕添加圖示檔案，第一個添加的是要顯示的圖示，第二個添加一個空的圖示（可以使用 Image Editor 新建一個 ICO 檔案，然后直接保存即可得到一個空的圖示，），
第三步：設定 TrayIcon 的 Icons 屬性為 ImageList1 （可以直接在串列中選擇），
第四步：在 Form1 的 OnFormShow 事件中加入下面的代碼：
TrayIcon1.Animate := True;
TrayIcon1.AnimateInterval := 450;
當 Animate 為 True 時，將自動按 ImageList 控制元件中圖示的順序進行依次顯示，形成動態效果， AnimateInterval 為每隔多少時間顯示下一個圖示，如果要停止閃爍，將 Animate 設定為 False 即可，
（3）右鍵選單
第一步：在表單上放置PopupMenu1
第二步：雙擊PopupMenu1，添加選單
第三步：設定 TrayIcon1 的 PopupMenu屬性為 PopupMenu1 （可以直接在下拉串列中選擇），
運行中，在托盤圖示上右鍵即彈出選單
(4)最小化和還原視窗
第1步：在表單上放置一個ApplicationEvents1，雙擊
第2步：隱藏主表單
procedure TForm6.ApplicationEvents1Minimize(Sender: TObject); begin Hide(); // 隱藏主表單 Self.WindowState := TWindowState.wsMinimized; // 最小化 不在任務欄上顯示 end;
第3步:顯示主視窗，
procedure TForm6.N12Click(Sender: TObject); // 回傳，顯示主視窗 begin Self.Show(); Self.WindowState := TWindowState.wsNormal; Application.BringToFront(); // 前靠 end;
雙擊托盤圖示，顯示主視窗，復用上面代碼
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/314.html
標籤：Delphi