unit tray; interfaceuses Windo_程序员之家(支持XP下托盘栏气球提示的托盘单元)

开发技术指南» 文章正文

引言： unit tray; interfaceuses Windo

摘要： unit uswlmselectda; {$s-,w-,r-} {$c preload} interface uses windows,messages,sysutils, types, classes, graphics, controls,stdctrls,forms, strutils,math,adodb,tflatbuttonunit,uswlmstyleedit; type......

·软件启动画面中启动状态的显示 »显示摘要«

摘要：我们平时看到的很多软件（photoshop，3dmax）都会在启动画面中显示当前正在启动哪个模块，并在模块加载失败时给予提示，这样的好处是，可以让比较专业的软件使用者知道当前软件加载了哪些模块，或者在软件发生启动错误时，让用户得以反馈是启动的哪个模块时发生了，以及在长时间的软件启动过程中，让用户知道软件还在工作，避免用户对其失去信息。。。好了，说了那么多废话，就来看看我是怎么制作这样一个程序的，......

支持XP下托盘栏气球提示的托盘单元

unit tray;

【程序编程相关:我对DELPHI写的几个基类型】

interface 【推荐阅读:用Delphi来DIY一个软件"变脸"功】

【扩展信息:Delphi2005学习笔记4(续)——】

uses

windows, messages, sysutils, variants, classes, graphics, controls, forms,

dialogs,registry,shellapi, comctrls, stdctrls, buttons, menus, extctrls;

const

icon_id=3;

nif_info = $10;

nim_setversion = $00000004;

notifyicon_version = 3;

nim_setfocus = $00000003;

niif_info = $00000001;

niif_warning = $00000002;

niif_error = $00000003;

nin_balloonshow = wm_user + 2;

nin_balloonhide = wm_user + 3;

nin_balloontimeout = wm_user + 4;

nin_balloonuserclick = wm_user + 5;

nin_select = wm_user + 0;

ninf_key = $1;

nin_keyselect = nin_select or ninf_key;

procedure insticon(toyicon:ticon;winhandle:thandle;cbmessage:integer);

procedure deleicon(winhandle:thandle);

procedure showballoontips(tipinfo,tiptitle:string);

implementation

type

... 下一页

·分布式网络考试系统原型分析及实现 »显示摘要«

摘要：分布式网络考试系统原型分析及实现 analysing and implementing the prototype of the distributed network exam system 河南思维自动化设备有限公司软件部耿百强 henan thinker automatic equipment co. ltd, geng baiqiang 河南省济源市委党校 ......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：