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

Вниз

PopupMenu на иконке в трее.   Найти похожие ветки 

 
vajo   (2004-06-15 19:32) [0]

Создаю так.

procedure TfmMain.WndProc(var Msg : TMessage);
var  p : TPoint;
begin
 case Msg.Msg of
   WM_USER + 1:
   case Msg.lParam of
     WM_RBUTTONDOWN:
     begin
       GetCursorPos(p);
       PopupMenu1.Popup(p.x, p.y);
     end
   end;
 end;
 inherited;
end;


При работе программы PopupMenu всплывает, но при переходе в др. программу она не убирается
пока не ткнешь в окно моей пронраммы..
Подскажите, как сделать чтобы PopupMenu убиралась.


 
grom   (2004-06-16 10:54) [1]

http://www.zdima-iv.nm.ru/delphi.html
пример Color Choose v1.2


 
grom   (2004-06-16 10:57) [2]

http://www.zdima-iv.nm.ru/delphi.html
пример ICON


 
nikkie ©   (2004-06-16 14:57) [3]

To display a context menu for a notification icon, the current window must be the foreground window before the application calls TrackPopupMenu or TrackPopupMenuEx. Otherwise, the menu will not disappear when the user clicks outside of the menu or the window that created the menu (if it is visible). However, when the current window is the foreground window, the second time this menu is displayed, it displays and then immediately disappears. To correct this, you must force a task switch to the application that called TrackPopupMenu at some time in the near future. This is done by posting a benign message to the window or thread, as shown in the following code sample:

  SetForegroundWindow(hDlg);

  // Display the menu
  TrackPopupMenu(   hSubMenu,
                    TPM_RIGHTBUTTON,
                    pt.x,
                    pt.y,
                    0,
                    hDlg,
                    NULL);

  PostMessage(hDlg, WM_NULL, 0, 0);


http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/resources/menus/menure ference/menufunctions/trackpopupmenu.asp


 
Michael   (2004-06-16 19:39) [4]

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
SetForegroundWindow(Handle);
end;


 
grom   (2004-06-16 21:11) [5]

http://www.delphiworld.ru/index.php?stat&page=2
---------------------
Секреты иконки в системной трее. Часть 1
Автор: Рустик, Просмотров: 234
Этой статьей я начну свой расскаж о секретах работы с иконкой приложения в системной трее. Эта часть расскажет вам о самом самом начальном: как добавлять/изменять/удалять иконку в трей. А также менять ее параметры во время работы приложения.
---------------------------
Секреты иконки в системной трее. Часть 2
Автор: Рустик, Просмотров: 242
Логическое продолжение предыдущей статьи.



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

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

Наверх




Память: 0.48 MB
Время: 0.052 c
8-1081152480
SDV
2004-04-05 12:08
2004.07.04
Помещение изображения в TMemoryStream


1-1087475308
AngelSAI
2004-06-17 16:28
2004.07.04
ImageList


14-1087193128
Rule
2004-06-14 10:05
2004.07.04
Как Вы относитесь к максималистам ... ?


9-1078659133
MrAngel
2004-03-07 14:32
2004.07.04
HLSL и GLSL


1-1087885634
Максим
2004-06-22 10:27
2004.07.04
Как программно удалить файл из какой-либо папки?