1. 程式人生 > >XE下顯示托盤圖標(TrayIcon)

XE下顯示托盤圖標(TrayIcon)

圖標 windows popu normal icon圖標 system query events ini

1.拖一個TrayIcon控件

2.拖一個ApplicationEvents控件

3.拖一個PopupMenu控件

將TrayIcon的PopupMenu屬性與PopupMenu控件關聯

unit UnitMain;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.AppEvnts, Vcl.ExtCtrls, Vcl.Menus;
 
type TForm6 = class(TForm) TrayIcon1: TTrayIcon; ApplicationEvents1: TApplicationEvents; PopupMenu1: TPopupMenu; Exit1: TMenuItem; procedure ApplicationEvents1Minimize(Sender: TObject);   // 窗體最小化時,顯示Icon圖標 procedure TrayIcon1Click(Sender: TObject); procedure FormClose(Sender: TObject; var
Action: TCloseAction); procedure Exit1Click(Sender: TObject); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); // 關閉之前 procedure FormActivate(Sender: TObject); private { Private declarations } RealClose : Boolean; // 關閉標誌 是否是真正的關閉 public { Public declarations
} end; var Form6: TForm6; implementation {$R *.dfm} procedure TForm6.FormActivate(Sender: TObject); begin if Tag=0 then begin Tag:=1; RealClose:=False; end; end; procedure TForm6.ApplicationEvents1Minimize(Sender: TObject); begin Hide();                          // 隱藏窗體 Self.WindowState := TWindowState.wsMinimized; // 最小化 TrayIcon1.Visible:=True;               // 顯示圖標 end; procedure TForm6.Exit1Click(Sender: TObject); // 菜單裏的真正退出 begin RealClose := True; Self.close(); end; procedure TForm6.FormClose(Sender: TObject; var Action: TCloseAction); begin TrayIcon1.Visible:=False; // 隱藏Icon TrayIcon1.Free;           // 釋放ICON end; procedure TForm6.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose:=RealClose; if(not RealClose) then ApplicationEvents1Minimize(nil); end; procedure TForm6.TrayIcon1Click(Sender: TObject); begin TrayIcon1.Visible:=False; Self.Show(); Self.WindowState := TWindowState.wsNormal; Application.BringToFront(); // 前靠 end; end.

XE下顯示托盤圖標(TrayIcon)