Lazarus中TrayIcon的图标运用（Windows）

 

1、用文本工具建立RC文件放在工程目录下，如tray_test.rc，内容如下：

101    ICON    "Aire_095.ico"

102    ICON    "Aire_063.ico"

用lazarus的lazarus/pp/bin/i386-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;