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]半步: 电脑工程

发表评论

您的电子邮箱地址不会被公开。

此站点使用Akismet来减少垃圾评论。了解我们如何处理您的评论数据