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

Вниз

System Tray   Найти похожие ветки 

← →
dkDimon   (2003-11-18 22:18) [0]

Всем привет... Не кодил 8 месяцев, поэтому все забыл напрочь... В общем, ситуация такая... Создаю иконку в систрее. Обрабатываю WM_RBUTTONUP на показ popup. Забыл как обрабатывать, чтобы при клике вне меню, меню закрывалось... :(

---

← →
Rouse_ ©   (2003-11-18 23:03) [1]

SetForegroundWindow((Owner as TWinControl).Handle);

Желаю успехов

---

← →
Владислав ©   (2003-11-19 18:30) [2]

SetForegroundWindow(hwnd);
GetCursorPos(&pt);
res = TrackPopupMenu(hmenu,
0,
pt.x,
pt.y,
0,
hwnd,
NULL);
hwnd - это окно приложения.

---

← →
dkDimon ©   (2003-11-19 23:17) [3]

Ну и... не закрывается оно... и получается вообще какая-то чушь...

---

← →
Владислав ©   (2003-11-20 15:59) [4]

У меня работает.

---

← →
Rouse_ ©   (2003-11-21 10:03) [5]

Покажи код как не получается...

---

← →
dkDimon ©   (2003-11-21 13:08) [6]


procedure TMainFrm.EnrIcon(var Msg: TMessage);
begin
case Msg.LParam of
WM_RBUTTONUP:
begin
IconPopup.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
end;
WM_LBUTTONDBLCLK:
begin
MainFrm.Show;
Application.Restore;
SetForegroundWindow(MainFrm.Handle);
end;
end;
end;

Правая кнопка мыши - показ меню. Двойной щелчок левой - показ окна прогр. Тут еще какая-то обработка должны быть на скрытие меню вроде бы..

---

← →
jonni ©   (2003-11-21 15:53) [7]

gde to eto uzhe obsuzhdalos... i reshilos" na skol"ko ya pomnyu posilaniem WM_NULL...

---

← →
jonni ©   (2003-11-21 15:53) [8]

gde to eto uzhe obsuzhdalos... i reshilos" na skol"ko ya pomnyu posilaniem WM_NULL...

---

← →
Владислав ©   (2003-11-21 17:08) [9]

Ну да. Добавь тогда вот это:
PostMessage(hwnd, WM_NULL, 0, 0);

после SetForegroundWindow(MainFrm.Handle);

---

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

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

Наверх

Память: 0.48 MB
Время: 0.018 c