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

Вниз

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

 
andre ©   (2003-08-10 02:37) [0]

Привет.
Нужно сделать всплывающее меню по клику по значку в трее. После долгого лазания по справке родилось следующее:
procedure PopupMenu (Window : THandle);
var
Menu : HMenu;
Popup : HMenu;
Pt ( hinstance, "TRAYMENU")
Привет.
Нужно сделать всплывающее меню по клику по значку в трее. После долгого лазания по справке родилось следующее:
procedure PopupMenu (Window : THandle);
var
Menu : HMenu;
Popup : HMenu;
Pt : TPoint;
begin
Menu := LoadMenu (hinstance, "TRAYMENU");
Popup:= GetSubMenu (Menu, 0);
GetCursorPos (Pt);
TrackPopupMenuEx (Popup, TPM_CENTERALIGN or TPM_LEFTBUTTON, Pt.X, Pt.Y, Window, nil);
PostMessage (Window, WM_NULL, 0, 0);
DestroyMenu (Menu);
end;

Неужели это нельзя сделать проще? И ещё: если в меню не выбирать ничего, то оно само не исчезает (надо обязательно что-то выбрать)-можно ли это исправить?
Спасибо!


 
andre ©   (2003-08-10 05:00) [1]

Ответ:
вставить
SetForegroundWindow (Window);
после
GetCursorPos (Pt);



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

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

Наверх




Память: 0.46 MB
Время: 0.035 c
1-40476
k_len
2003-10-02 13:56
2003.10.13
Exception EDBEngineError


14-40576
Nik8.
2003-09-22 12:57
2003.10.13
:))


1-40379
GH@ST
2003-10-01 12:47
2003.10.13
Как перебрать список всех открытых окон


1-40506
Recruit
2003-10-02 07:55
2003.10.13
Какая функция в Delphi аналогична паскалевской Delay?


1-40362
Relaxxx
2003-10-01 17:39
2003.10.13
Убрать все пробелы с строки?????