CoolTrayIcon for Lazarus 杰出的托盘组件

时间：2016-02-05 16:40:09
【文件属性】：

文件名称：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;
  • 直接就可以使用

相关文章