📄 readme.txt
字号:
TSysTray 控件V1.04 说明:
基本功能:
往系统通知区加图标,并可显示,隐藏,修改这个图标,并响应鼠标事件。
更新历史:
2000.1.31 (V1.04)
去掉了毫无意义的ShowAbout方法。
1999.10.1 (V1.03)
与V1.00相比有以下主要改动:
1、能在设计期预览图标和弹出菜单.
2、从TComponent继承,从而去掉了一些无用属性(如 Left,Top等).
顺便解决了在设计期容易被别的控件遮住的问题.
3、在V1.01中,由于采用了AllocateHWnd函数建一个隐藏窗口来接管
Windows事件,导致重新启动Windows时无法正常退出现象。在V1.02
中去掉了AllocateHWnd函数,改用建立一个隐藏TWinControl的方法。
在V1.03中,仍然使用了AllocateHwnd函数,但解决了Windows重新
启动问题。
4、SysTray 可以不放在窗体上。
1999.4.15 (V1.00)
TSysTray第一个版本。
属性:
Active: boolean 运行期是否显示图标
ShowDesigning: boolean 设计期是否预览图标
Icon: TIcon 欲加在通知区的图标
Hint: string 通知区图标上的提示(最多63个字符)
PopupMenu: TPopupMenu 点击通知区图标弹出的菜单
PopupMode: TPopupMode 弹出菜单的方式(即何种鼠标事件发生时弹出)
PopupAlign: TPopupAlignment 弹出菜单的对齐方式
TPopupMode = Set of(pmLeftClick, pmRightClick,
pmLeftDblClick, pmRightDblClick);
TPopupAlignment = (paLeft, paRight, paCenter);
方法:
constructor Create(AOwner: TComponent); override; 构造方法
destructor Destroy; override; 析构方法
事件:
OnIconDoubleClick:
procedure TForm1.SysTray1IconDoubleClick(Sender: TObject;
Button: TMouseButton; X, Y: Integer);
OnIconMouseDown:
procedure TForm1.SysTray1IconMouseDown(Sender: TObject;
Button: TMouseButton; X, Y: Integer);
演示程序(Demo.exe):
这个演示程序给出了TSysTray的基本用法.
包含文件:
SysTray.dcr
SysTray.pas
DemoUnit.pas
DemoUnit.dfm
Demo.dpr
Demo.res
Demo.exe
Readme.txt
声明:
TSysTray 控件 Ver 1.04
1、这是一个免费控件.
2、如果你有兴趣把它做得更好, 请发一份给作者,谢谢.
3、若要传播它,请完全分发上述8个文件.
作者 南昌大学自动化系96(2) 郝新庚 1999.4.15 23:03
E-mail: haoem@126.com
URL: http://haoxg.yeah.net
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -