[X-rem]

Сообщение от TitiS

Контексное меню называется =)

Вот смотри: http://denasoft.xost.ru/tray.txt

Чтобы PopupMenu вызывался доработать код чем то вроде этого:

Код:

procedure TForm1.WMTRAYICONNOTIFY(var Msg: TMessage);
var MouseCo: TPoint;
begin
GetCursorPos(MouseCo);
case Msg.LParam of
WM_LBUTTONUP: Form1.Visible:=true;
WM_RBUTTONUP: PopupMenu1.Popup(MouseCo.X, MouseCo.y);
end;
end;

БЛИН НЕ РАБОТАЕТ !
Пришли исходник.