Delphi实现Windows的气泡提示样式

其实也不复杂，主要使用到shellAPI下的TNotifyIconData这个结构体：

typedef struct _NOTIFYICONDATA {

    DWORD cbSize;        //结构体的大小，以字节为单位

    HWND hWnd;           //窗口的句柄

    UINT uID;            //应用程序定义的任务栏图标的标识符

    UINT uFlags;         //此成员表明具体哪些其他成员为合法数据

    UINT uCallbackMessage;   //应用程序定义的消息标示

    HICON hIcon;         //增加、修改或删除的图标的句柄

    TCHAR szTip[64];     //指向一个以/0结束的字符串的指针

    DWORD dwState;       //Version 5.0，图标的状态

    DWORD dwStateMask;   //Version 5.0. 指明dwState成员的那些位可以被设置或者访问

    TCHAR szInfo[256];   //指向一个以/0结束的字符串的指针,字符串的内容为气球提示内容

    union {

        UINT uTimeout;   //表示气球提示超时的时间，单位为毫秒，此时间后气球提示将消失

        UINT uVersion;   //用来设置使用Windows 95 还是 Windows 2000风格的图标消息接口

    };

    TCHAR szInfoTitle[64];   //指向一个以/0结束的字符串的指针。字符串的内容为气球提示的标题

    DWORD dwInfoFlags;   //设置此成员用来给气球提示框增加一个图标,增加的图标出现在气球提示标题的左侧

    GUID guidItem;       //保留

    HICON hBalloonIcon;  //用于Windows Vista或更高版本的自定义气球图标

} NOTIFYICONDATA, *PNOTIFYICONDATA;

具体怎么用，给个函数 ->

procedure FillDataStructureandCreate(shint:string;dwFlags:Cardinal);

begin

  with FsysIcon do begin

      cbSize:=SizeOf(TNotifyIconData);

      Wnd:=Handle;

      uID:=Application.Icon.Handle;

      uFlags:=NIF_MESSAGE or NIF_ICON or NIF_TIP or NIF_INFO;

      hIcon:=Application.Icon.Handle;

      StrPCopy(szInfoTitle,'标题');

      StrPCopy(szInfo,shint);//shint为内容

      dwInfoFlags:=dwFlags;//提示的图标

      uCallbackMessage:=CM_ICONDATA; //自定义的消息处理函数

      uTimeout:=15;

      uVersion:=NOTIFYICON_VERSION_4;

  end;

end;

调用

首先得添加

      FillDataStructureandCreate('右击重新显示窗体',NIIF_INFO);

      Shell_NotifyIcon(NIM_ADD,@FsysIcon);

自定义提示

        FillDataStructureandCreate('服务已启动',NIIF_INFO);

        Shell_NotifyIcon(NIM_MODIFY,@FsysIcon);

最后用完删除

Shell_NotifyIcon(NIM_DELETE,@FsysIcon);

其中 FsysIcon是TNotifyIconData类型.

Delphi实现Windows的气泡提示样式的更多相关文章

jquery.validate.unobtrusive.js实现气泡提示mvc错误
改写jquery.validate.unobtrusive.js实现气泡提示mvc错误个人对于这个js.css不是很擅长,所以这个气泡提醒的样式网上找了下,用了这个http://www.cnblog ...
iOS 灵活,简易,扩展性强的气泡提示框LFBubbleView(含源码)
一.效果图二.使用方法使用简单,4行代码集成. _bubbleView = [[LFBubbleView alloc] initWithFrame:CGRectMake(, , , )]; _bu ...
气泡提示纯CSS
tooltip(气泡提示) 依赖脚本文件:CalvinTip.js 样式文件:toolTip.css 参数 elems HTMLNode 必须气泡提示的元素 options Object 可选多 ...
Asp.net Mvc 表单验证(气泡提示)
将ASP.NET MVC或ASP.NET Core MVC的表单验证改成气泡提示: //新建一个js文件(如:jquery.validate.Bubble.js),在所有要验证的页面引用 (funct ...
Tippy.js - 免费开源且高度可定制的气泡提示独立组件
推荐一个非常优秀的 web 气泡提示独立UI组件. 介绍 Tippy.js 是一款用于Web的完整工具提示,弹出菜单,下拉菜单和菜单解决方案.适用于鼠标,键盘和触摸输入. 特点超轻量的纯 javas ...
CSS实现自定义手型气泡提示
实现自定义的手型气泡提示 <html> <head> <meta charset="utf-8"> <title></titl ...
C#之使用NotifyIcon实现任务栏托盘菜单，图标闪烁效果及气泡提示
很多程序是只需要后台运行的,甚至不需要自己的应用界面.NotifyIcon提供了程序在任务栏的显示功能程序下载链接如下: http://download.csdn.net/detail/u01031 ...
php--validate错误信息提示样式
//validate 错误信息提示样式可以提示错误信息可以使用jq 自带的属性改变错误的显示的位置,其中element是验证未通过的当前表单元素,error为错误后的提示信息 [注意]:放的位 ...
（Delphi） Windows 32 API程序设计目录
这里所有程序均使用Delphi调用Windows 32 API方式实现,并不是使用VCL已经封装好的类实现的! (一)第一个窗口程序 01 创建第一个窗口.
Arc Engine 中添加气泡提示框
一.在ArcMap中的定位操作已知若干点的经纬度坐标,要求在地图中进行定位: 1.通过Tool >Add X Y data 定位点,注意选择地理坐标系下的wgs 1984坐标系: 2.定位后的 ...

随机推荐

Java-Java调用mysqldump进行数据库备份
1 public ResultData backupDatabase(Integer type) { 2 // 构建备份sql的文件名 3 String sqlFileName = "tes ...
drools规则的入门使用
1:pom文件 <dependency> <groupId>org.drools</groupId> <artifact ...
mysql-canal-kafka-kettle 数据实时同步链部署bug 填坑过程
1,因为 mysql 版本从5.7 提高到 8.0 ,需要更改用户配置. create user 'canal'@'%' identified by 'canal';grant select , r ...
Go组件库总结之无等待锁
本篇文章我们用Go封装一个无等待锁库.文章参考自:https://github.com/brewlin/net-protocol 1.锁的封装 type Mutex struct { v int32 ...
uniapp 小程序自定义组件样式穿透问题
1.正在开发时发现自定义组件间样式发生穿透问题 2.主需要引入下面代码可解决 export default { options: { //默认值 isolated(启动隔离) //apply-shar ...
通过Python获取cpu、硬盘和主板等硬件序列号组成的唯一识别码
import wmi c = wmi.WMI() def yingpan(): # # 硬盘序列号 cc = "" for physical_disk in c.Win32_Dis ...
AWS RedShift实战应用SQL大全及经验分享[持续更新]
文章目录前言 - 关于RedShift 一.数据维护篇 1.1 表结构操作 1.2 数据添加与查询 1.3 数据修改与删除 1.4 事物操作二.SQL结构篇 2.1 使用with封装代码 2.2 ...
fs.access(path[, mode], callback)
color-color diagram data
pytorch的inverse算子转onnx失败
https://github.com/microsoft/onnxruntime-extensions/blob/main/tutorials/pytorch_custom_ops_tutorial. ...

Delphi实现Windows的气泡提示样式

Delphi实现Windows的气泡提示样式的更多相关文章

随机推荐

热门专题