Lazarus 中TrayIcon的图标运用(Windows)[转]
1、用文本工具建立RC文件放在工程目录下,如tray_test.rc,内容如下:
101 ICON "Aire_095.ico"
102 ICON "Aire_063.ico"
用lazarus的lazarusppbini386-win32中的Windres生成RES文件:
windres -i tray_test.rc -o tray_test.res
2、从组件栏的Additional中选择TTrayIcon,放在Form上,并修改主Main的Form的代码:
在Interface区添加:
{$ifdef win32}
{$R tray_test.res}
{$endif}
在Uses区添加:
//contains LOADICON(针对Windows平台)
Jwawinuser
3、在运用TrayIcon的按钮中添加实效代码:
procedure Form1.Button1Click(Sender: TObject);
const
IDI_ICON1=101;
begin
{$ifdef win32}
SystrayIcon.Icon.Handle := LoadIcon(hInstance,MAKEINTRESOURCE(IDI_ICON1));
{$else}
SystrayIcon.Icon.LoadFromFile('/path_to_icon/icon.ico');
{$endif}
SystrayIcon.ShowHint := True;
SystrayIcon.Hint := 'my tool tip';
SystrayIcon.PopUpMenu := MyPopUpMenu;
SystrayIcon.Show;
end;
[From]半步: 电脑工程
本作品采用 知识共享署名-相同方式共享 4.0 国际许可协议 进行许可。