Форум: "Система";
Текущий архив: 2004.02.06;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.025 c