Tray в чистом виде
А теперь приступим к собственно выводу иконки в трей. Для начала создадим форму, где все это разместим:
type
TForm1 = class (TForm)
Button1: TButton;
procedure Button1Click (Sender: TObject);
procedure FormDestroy (Sender: TObject);
private
procedure TrayDefaultHandler (var Message:TMessage);
{Private declarations}
public
Data:TNotifyIconData;
{Public declarations}
end;
потом - кнопку TButton, в которой запишем:
procedure TForm1.Button1Click (Sender: TObject);
var H:THandle;
begin
H:=AllocateHWnd (TrayHandler);
FillChar (S,SizeOf (S),#0);
Data.cbSize:=SizeOf (S);
Data.Wnd:=H;
Data.uCallbackMessage:=WM_TRAYICON;
Data.uFlags:=NIF_ICON or NIF_TIP or NIF_MESSAGE;
Data.hIcon:=Application.Icon.Handle;
StrPCopy (data.szTip,Application.Title);
Shell_NotifyIcon (NIM_ADD,@data);
end;
Небольшие пояснения. Во-первых, мы создаем постое окно с дескриптором H, которое будет реагировать на сообщения иконки. После этого очищаем предопределенную структуру Data типа TNotifyIconData, затем заполняем необходимые поля. Значение поля uFlags представляют собой уведомление системы о том, что ей надо использовать. Так, использование значения NIF_ICON уведомляет систему о том, что в поле hIcon присутствует непустое значение, которое надо вывести в виде иконки; использование значения NIF_TIP говорит о наличии текста всплывающей подсказки в поле szTip; значение NIF_MESSAGE - о том, что в поле Wnd присутствует дескриптор окна, которому передается управление при возникновении того или иного сообщения у иконки.
После заполнения всех необходимых полей вызывается функция Shell_NotifyIcon со значением NIM_ADD - добавление иконки в трей.
Теперь рассмотрим реакцию иконки на сообщения:
procedure TForm1.TrayDefaultHandler (var Message:TMessage);
begin
if Message.Msg=WM_TRAYICON then
if Message.LParam=WM_LBUTTONDOWN then
begin
ShowMessage ('Left Button Down');
end;
end;
Как видно из текста, здесь в качестве реакции реализован простой вывод уведомления о нажатии левой кнопки мыши на иконке. Идентификатор WM_TRAYICON, используемый здесь, определен нами в модуле главной формы следующим образом:
const WM_TRAYICON = WM_USER + 1;
такое определение необходимо для того, чтобы сообщения системы не перекрывались.
После того как мы убедились в наличии реакции и хотим закрыть приложение, нам надо удалить нашу иконку из трея, так как, если мы этого не сделаем, то она останется лежать там до следующей перегрузки Explorer'а.
Удаление иконки реализуется таким кодом:
procedure TForm1.FormDestroy (Sender: TObject);
begin
Shell_NotifyIcon (NIM_DELETE,@data);
end;
Здесь нам даже не потребовалось никаких вмешательств в структуру data - мы просто вызвали Shell_NotifyIcon с необходимым параметром, как показано ниже:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls;
const UWM_TRAYICON = WM_USER+1;
const ID_TRAYICON = 1;
type
TForm1 = class (TForm)
Button1: TButton;
procedure Button1Click (Sender: TObject);
procedure FormDestroy (Sender: TObject);
private
procedure TrayDefaultHandler (var Message:TMessage);
{Private declarations}
public
data:TNotifyIconData;
{Public declarations}
end;
var
Form1: TForm1;
implementation
Uses ShellApi;
{$R *.dfm}
procedure TForm1.TrayDefaultHandler (var Message:TMessage);
begin
if Message.Msg=UWM_TRAYICON then
if Message.LParam=WM_LBUTTONDOWN then
begin
ShowMessage ('Left Button Down');
end;
end;
procedure TForm1.Button1Click (Sender: TObject);
var H:THandle;
begin
H:=AllocateHWnd (Self.TrayDefaultHandler);
FillChar (S,SizeOf (S),#0);
data.cbSize:=SizeOf (S);
data.Wnd:=H;
data.uCallbackMessage:=UWM_TRAYICON;
data.uFlags:=NIF_ICON or NIF_TIP or NIF_MESSAGE;
data.hIcon:=Application.Icon.Handle;
StrPCopy (data.szTip,Application.Title);
Shell_NotifyIcon (NIM_ADD,@data);
end;
procedure TForm1.FormDestroy (Sender: TObject);
begin
Shell_NotifyIcon (NIM_DELETE,@data);
end;
end.