Developing.ru

protected
   procedure WndProc(var Message: TMessage); override;

procedure TForm1.WndProc(var Message: TMessage);
begin
  case Message.Msg of
    MYWM_NOTIFYICON: begin
       case Message.LParam of
         WM_LBUTTONDOWN : begin
            //
         end;
         WM_LBUTTONUP : begin
            //
         end;
          // другие события мыши
       end;
    end;
    else inherited;
  end;
end;

А чем не устраивает рабочий пример, на который сослался [b]namomelkor[/b]?

Если смущает использование чужих компонентов можно обойтись просто функцией
Shell_NotifyIcon. Она одна все делает: добавляет, изменяет, удаляет.
При создании иконки системе сообщается Handle окна, которое будет получать события, например, клики на иконке.
Следовательно нужны всего 2 вещи:
1)
Определить идентификатор события const MYWM_NOTIFYICON = WM_USER+1;
Вызвать при запуске и перед завершением работы функцию Shell_NotifyIcon.

2) в нужной форме переопределить метод WndProc
[code]
protected
procedure WndProc(var Message: TMessage); override;
[/code]

как

[code]
procedure TForm1.WndProc(var Message: TMessage);
begin
case Message.Msg of
MYWM_NOTIFYICON: begin
case Message.LParam of
WM_LBUTTONDOWN : begin
//
end;
WM_LBUTTONUP : begin
//
end;
// другие события мыши
end;
end;
else inherited;
end;
end;
[/code]

Примеры на C++ есть в справке по Wn32 API.

А можно дать рабочий пример, и если можно на описание русском.

[url]http://forum.developing.ru/showthread.php?t=8572[/url]

Подскажите пожалуйста, как поместить значек программы в терэй виндоуса, и с помощью него выполнять простые действия.(показать программу, свернуть в трей)
В Delphi 7.