Текущий архив: 2002.09.16;
Скачать: CL | DM;

Вниз

System tray   Найти похожие ветки 

← →
Stany   (2002-07-23 20:28) [0]

Как составить PopupMenu r к иконке минимизированного в Sustem tray
приложения?

---

← →
Ich Hasse ©   (2002-07-23 21:47) [1]

Procedure InTray(n:Integer;Icon:TIcon);
protected
Procedure IconMouse(var Msg : TMessage); message WM_USER+1;


Procedure TMain.InTray(n:Integer;Icon:TIcon);
Var Nim:TNotifyIconData;
begin
With Nim do
Begin
cbSize:=SizeOf(Nim);
Wnd:=Main.Handle;
uID:=1;
uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
hicon:=Icon.Handle;
uCallbackMessage:=wm_user+1;
szTip:="Конфигуратор";
End;
Case n OF
1: Shell_NotifyIcon(Nim_Add,@Nim);
2: Shell_NotifyIcon(Nim_Delete,@Nim);
3: Shell_NotifyIcon(Nim_Modify,@Nim);
End;
end;

procedure TMain.IconMouse(var Msg:TMessage);
Var p:tpoint;
begin
GetCursorPos(p);
Case Msg.LParam OF
WM_LBUTTONDBLCLK: Begin
InTray(2,Application.Icon);
ShowWindow(Handle,SW_SHOW);
ShowWindow(Application.Handle,SW_SHOW);
End;
WM_RBUTTONUP:
Begin
SetForegroundWindow(Handle);
TrayMenu.Popup(p.X,p.Y);
PostMessage(Handle,WM_NULL,0,0);
end;
End;
end;

Вот так первая для прятанья/показывания, вторая для меню.

---

Страницы: 1 вся ветка

Текущий архив: 2002.09.16;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.01 c