Developing.ru

Код: Выделить всё

Для начала

Const
  CM_MyTrayMsg = WM_USER+1;


Затем, при создании иконки в структуре NOTIFYICONDATA
  .uCallbackMessage = CM_MyTrayMsg;
  .hWnd = Form1.Handle;


В самой Form1
  protected
    procedure WndProc(var Message: TMessage); override;

.....

procedure WndProc(var Message: TMessage); override;
begin
   with Message do begin
     if Message=CM_MyTrayMsg then begin
        case lParam of
          WM_LBUTTONDBLCLK: ....;
          WM_RBUTTONDBLCLK: ....;
          WM_MBUTTONDBLCLK: ....;
          WM_MOUSEMOVE: ....;
          WM_LBUTTONDOWN: ....;
          WM_LBUTTONUP: ....;
          WM_RBUTTONDOWN: ....;
          WM_RBUTTONUP: ....;
          WM_MBUTTONDOWN: ....;
          WM_MBUTTONUP: ....;
        end; 
     end;
     Inherited;
   end;
end;