码迷,mamicode.com
首页 > 其他好文 > 详细

XE下显示托盘图标(TrayIcon)

时间:2019-02-08 01:21:49      阅读:182      评论:0      收藏:0      [点我收藏+]

标签:ext   ica   min   图标   tap   .class   ace   .sh   event   

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)

标签:ext   ica   min   图标   tap   .class   ace   .sh   event   

原文地址:https://www.cnblogs.com/westsoft/p/10355737.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
分享档案
周排行
mamicode.com排行更多图片
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!