popupmenu в traybar

[vicvtor]

Помогите народ!!! Я показываю свою программу(при минимизации) в SYSTRAY, но при нажатии правой кнопки POPUPMENU не всплывает. Делаю всё так:
\\показываю
procedure TForml.CreateTraylcon(n:Integer);
var nidata : TNotifyiconData;
begin
with nidata do
begin
cbSize := SizeOf(TNotifyiconData) ;
Wnd := Self.Handle;
uID := n;
uFiags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
uCallBackMessage := WM_MYTRAYNOTIFY;
hicon := Application.Icon.Handle;
szTip := 'My prog';
end;
Shell_NotifyIcon(NIM_ADD, @nidata);
end;
\\убираю
procedure TForml.DeleteTrayicon(n:Integer);
var nidata : TNotifyiconData; begin
with nidata do
begin
cbSize := SizeOf(TNotifyiconData);
Wnd := Self.Handle; uID := n; end;
Shell_NotifyIcon(NIM_DELETE, @nidata);
end;
\\показ меню, почему то на работает под моей XP
procedure TForml.WMICON(var msg: TMessage);
var P : TPoint;
begin
case msg.LParam of
WM_LBUTTONDOWN:
begin
GetCursorPos(p);
SetForegroundWindow(Application.Mai nForm.Handle);
PopupMenul.Popup(P.X, P.Y);
end;
WM_LBUTTONUP :
end;
end;

[rpy3uH]

хватит мученьям
на качай и не мучайся
traymaster.zip

[zetrix]

меню, почему то на работает под моей Xp

а у других работает?

[vicvtor]

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

а у других работает?

да, я в какомто справочнике нашёл. там что то правда ещё про главную форму написано было.

[rpy3uH]

я вам дал компонент что вам ещё надо ?
там всё элементарно!!!!!!!