|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
01.11.2006, 18:41 | #1 |
Иркутянин!!!
Пользователь
Регистрация: 01.11.2006
Сообщений: 83
|
popupmenu в traybar
Помогите народ!!! Я показываю свою программу(при минимизации) в 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; |
01.11.2006, 20:34 | #2 |
добрый няша
Старожил
Регистрация: 29.10.2006
Сообщений: 4,804
|
|
02.11.2006, 07:08 | #3 | |
Delphi/C++/C#
Участник клуба
Регистрация: 29.10.2006
Сообщений: 1,972
|
Цитата:
|
|
02.11.2006, 09:43 | #4 |
Иркутянин!!!
Пользователь
Регистрация: 01.11.2006
Сообщений: 83
|
да, я в какомто справочнике нашёл. там что то правда ещё про главную форму написано было.
|
02.11.2006, 20:06 | #5 |
добрый няша
Старожил
Регистрация: 29.10.2006
Сообщений: 4,804
|
я вам дал компонент что вам ещё надо ?
там всё элементарно!!!!!!! Последний раз редактировалось rpy3uH; 02.11.2006 в 20:08. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
PopupMenu | Патрон | Общие вопросы Delphi | 7 | 15.06.2008 14:04 |
PopupMenu и gif | Dj_smart | Мультимедиа в Delphi | 6 | 06.06.2008 11:33 |
PopupMenu | Михаил Юрьевич | Общие вопросы Delphi | 6 | 03.05.2008 18:46 |
PopupMenu | Teen4jump | Общие вопросы Delphi | 10 | 12.03.2008 13:42 |
Про PopupMenu | Михаил Юрьевич | Общие вопросы Delphi | 2 | 23.02.2008 23:38 |