【文件属性】：
文件名称：CoolTrayIcon for Lazarus 杰出的托盘组件
文件大小：564KB
文件格式：ZIP
更新时间：2016-02-05 16:40:09
CoolTrayIcon 托盘 lazarus
从delphi修改移植到LAZARUS,有demo(delphi).
lazarus自带的托盘组件功能很少,比不了CoolTrayIcon.
【文件预览】：
CoolTrayIcon
----CoolTrayTest.exe(578KB)
----SimpleTimer.pas(8KB)
----cooldef.pas(25KB)
----cooltrayiconlaz.lpk(2KB)
----icon()
--------eye()
----res.lrs(26KB)
----TextTrayIcon.dcr(480B)
----TextTrayIcon.pas(12KB)
----cooltrayiconlaz.pas(469B)
----CoolTrayIcon.png(4KB)
----RegisterTrayIcons.pas(1KB)
----CoolTrayIcon.chm(24KB)
----TextTrayIcon.png(4KB)
----CoolTrayIcon.dcr(480B)
----demos for delphi()
--------CustomHint1()
--------CustomHint2()
--------TextTrayTest()
--------CoolService()
--------TrayDraw()
--------MinimizeAnimation()
--------CoolTrayTest()
--------StartHidden()
--------2ccc.com.nfo(746B)
----CoolTrayIcon.pas(51KB)
网友评论
- 在新版Lazarus 2.0.10下可以正常安装, 但是放到程序里面运行时会报错,还是有兼容问题.procedure TCoolTrayIcon.HookForm; begin if (Owner as TWinControl) <> nil then begin // Hook the parent window OldWndProc := Pointer(GetWindowLong((Owner as TWinControl).Handle, GWL_WNDPROC)); {$IFDEF DELPHI_6_UP} NewWndProc := Classes.MakeObjectInstance(HookFormProc); {$ELSE} NewWndProc := MakeObjectInstance(HookFormProc); {$ENDIF} SetWindowLong((Owner as TWinControl).Handle, GWL_WNDPROC, LongInt(NewWndProc)); end; end;
- 直接就可以使用