Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.10;
Скачать: CL | DM;

Вниз

Создание меню для иконки в System tray   Найти похожие ветки 

 
Airdriver ©   (2003-03-27 10:35) [0]

Народ, объясните как создать выподающее меню для программы, которая находится в System tray, по нажатию правой кнопки мыши? И как сделать чтоб по нажатию левой кнопки программа максимизировалась?


 
Jel ©   (2003-03-28 14:50) [1]

После помещения значка в трей программа получает сообщения от него в том числе и при нажатии правой кнопкой мыши на значке. Сообщение надо ловить и показывать по нему меню. Все описано в хелпе. См. Shell_NotifyIcon, NOTIFYICONDATA.uCallbackMessage


 
panov ©   (2003-03-28 16:00) [2]

const
WM_MYICONNOTIFY = WM_USER + 10;
procedure TfMonDirMain.WMICON(var msg: TMessage);
var
p: TPoint;
begin
case msg.LParam of
WM_LBUTTONDBLCLK : RestoreClick(Self);
WM_RBUTTONUP:
begin
GetCursorPos(p);
pm.Popup(P.X, P.Y);
end;
end;
end;


procedure TfMonDirMain.AddTrayIcon;
var
nid: TNotifyIconData;
begin
nid.cbSize := SizeOf(TNotifyIconData);
nid.Wnd := Self.Handle;
nid.uID := 1;
nid.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
nid.uCallBackMessage := WM_MYICONNOTIFY;
nid.hIcon := Application.Icon.Handle;
StrPCopy(nid.szTip,Application.Title);
Shell_NotifyIcon(NIM_ADD, @nid);
end;

procedure TfMonDirMain.HideClick(Sender: TObject);
begin
AddTrayIcon;
ShowWindow(Application.MainForm.Handle,SW_HIDE);
ShowWindow(Application.Handle,SW_HIDE);
end;


 
Intell ©   (2003-03-28 22:00) [3]

Есть компонент TrayIcon, там данные функции есть.

sergein@nojabrsk.ru



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

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

Наверх




Память: 0.47 MB
Время: 0.018 c
1-30385
Demon_mhm
2003-03-28 20:23
2003.04.10
Как работать с TListWiew


3-30320
Димон1
2003-03-24 09:13
2003.04.10
Многострочный DBGrid


14-30551
Supreme 2
2003-03-23 17:14
2003.04.10
Первые плоды творчества


3-30303
Sirus
2003-03-23 10:43
2003.04.10
IBase 5.5 и IBase 6 на одной машине... Можно или нет???


1-30431
klyonov
2003-03-29 08:27
2003.04.10
Насчет Drag&Dock