XE下显示托盘图标（TrayIcon）

 

 

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 .

 

 

分类:  Delphi