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.
时间: 2024-10-29 19:07:09

XE下显示托盘图标(TrayIcon)的相关文章

new Date()在安卓下正常,在IOS下显示不出来

之前用JS在做一个倒计时,在PC端和安卓下面显示没问题,在IOS下显示不出来. 查找了资料,链接我忘记了. 原因是: 在IOS下,new Date("2000-2-22 00:10"),返回的是undefined,因为IOS不支持这种类型格式. 解决方案: 更换下格式:new Date("2000/2/22") 可以正常显示.

Mac OS X下显示隐藏文件方法

对于首次使用 Mac 系统的朋友来说,可能会有点稍微有点不适应,那就是 OS X 里并没有显示和隐藏文件的菜单或者设置.然而,其实在苹果 Mac OS X 操作系统下,隐藏文件是否显示有很多种设置方法,最简单的要算在 Mac 终端输入命令. 打开终端,输入以下命令: 显示/隐藏Mac隐藏文件命令如下(注意其中的空格): 显示Mac隐藏文件的命令:defaults write com.apple.finder AppleShowAllFiles -bool true && killall F

Linux more(功能类似 cat ,cat命令是整个文件的内容从上到下显示在屏幕上)

more命令,功能类似 cat ,cat命令是整个文件的内容从上到下显示在屏幕上. more会以一页一页的显示方便使用者逐页阅读,而最基本的指令就是按空白键(space)就往下一页显示,按 b 键就会往回(back)一页显示,而且还有搜寻字串的功能 .more命令从前向后读取文件,因此在启动时就加载整个文件. 1.命令格式: more [-dlfpcsu ] [-num ] [+/ pattern] [+ linenum] [file ... ] 2.命令功能: more命令和cat的功能一样都

(转)如何让ActiveXObject( "Microsoft.XmlDom ")对象在非IE浏览器下显示数据?firefox(火狐)

如何让ActiveXObject( "Microsoft.XmlDom ")对象在非IE浏览器下显示数据?firefox(火狐) 2013-09-10 16:01 2152人阅读 评论(0) 收藏 举报 在IE浏览器下,xmlDom对象一般这样被定义: [html] view plaincopy var xmlDom= new ActiveXObject("Microsoft.XMLDOM"); 为了兼容Firefox,需要修改为: [html] view plai

[转载]: delphi中XLSReadWrite控件的使用(2)---delphi XE下安装

一.下载 官方下载网址: http://www.axolot.com/components/download.htm 从这里可以下载到从Delphi5到DelphiXE全部支持的版本. 二.软件安装 下载下来的文件是exe格式,可以直接安装,一路next即可. 按照默认安装,会在: C:\Documents and Settings\All Users\Documents\RAD Studio\8.0  路径下生成XLSRWII4_D2011.bpl,安装时需要使用. C:\Program Fi

top(topas),vmstat,iostat在linux和AIX操作系统下显示情况

top(topas),vmstat,iostat在linux和AIX操作系统下显示情况 分类: Linux基础 2013-08-09 17:26 1093人阅读 评论(0) 收藏 举报 详细列出各命令常用参数,在自己的虚拟机上实验,要求把每行没列的信息解释清楚,还有不同操作系统平台下命令的不同之处.比如linux和AIX下top命令输出的不同等. Top (linux系统下) top命令是Linux下常用的性能分析工具,能够实时显示系统中各个进程的资源占用状况,类似于Windows的任务管理器.

iOS View自定义窍门——UIButton实现上显示图片,下显示文字

"UIButton实现上显示图片,下显示文字"这个需求相信大家在开发中都或多或少会遇见.比如自定义分享View的时候.当然,也可以封装一个item,上边imageView,下边一个label.但是既然有现成的,稍微改造下,设置下就可以,干嘛还要重复造轮子.有时候好多东西不是他们没有给设置,而是暂时没找到如何设置的方法而已. 示例 1. 一开始我的方案 自定义类继承UIButton,然后 -(void)layoutSubviews { [super layoutSubviews]; CG

在VC下显示JPEG、GIF格式图像的一种简便方法

在VC下显示JPEG.GIF格式图像的一种简便方法 一. 引言  JPEG图像压缩标准随然是一种有损图像压缩标准,但由于人眼视觉的不敏感,经压缩后的画质基本没有发生变化,很快便以较高的压缩率得到了广泛的认可.GIF格式虽然仅支持256色但它对于颜色较少的图像有着很高的压缩率,甚至超过JPEG标准,也得到了广泛的认同.但作为众多程序员的一个重要的开发工具--Microsoft Visual C++ 6.0的MFC库却仅对没有经过任何压缩的BMP位图文件有着良好的支持,可以读取.显示.存储甚至在内存

关于导航按钮在其他尺寸下显示问题

关于导航按钮在其他尺寸下显示问题1.Bootstrap第4177行@media (min-width: 768px) {  .navbar-header {    float: left;  }}修改为@media (min-width: 992px) {  .navbar-header {    float: left;  }}2.Bootstrap第4194行@media (min-width: 768px) {  .navbar-collapse {    width: auto;