Форум: "WinAPI";
Текущий архив: 2002.09.16;
Скачать: [xml.tar.bz2];
Вниз
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 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.09.16;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c