VPF::Проблема с PopupMenu - Форум программистов

Snowy

Дата 1.3.2006, 14:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Есть форма. У нее есть PopupMenu.
Работает корректно и замечательно.

Далее. Есть иконка в трее.
При клике на нее правой кнопой (WM_RBUTTONUP) делаю

Код

PopupMenu1..Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);

Работает.
Проблема вот в чем. Если я не хочу ничего выбирать, а просто кликаю в стороне от попупки, она не исчезает.
Исчезает только, если что-то выбрать или кликнуть по окну моей программы.
Висит зараза и не исчезает.
Аналогичный код, при вызове по клику на SpeedButton в моем окне работает нормально - попупка исчезает по клику на любое другое окно.
А при вызове из трея исчезать не хочет.
Как это побороть без серъезных извращений?

Демо

Дата 1.3.2006, 15:55 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

Всё просто.

Вот кусок обработки сообщений из процедуры:

Код


      //Клик на правой кнопке мыши
      WM_RBUTTONUP:
      begin
        //Считываем позицию курсора на экране
        GetCursorPos(P);
        //Показываем меню в позиции курсора
        SetForegroundWindow(Application.MainForm.Handle);
        pmIconTray.Popup(P.X, P.Y);
      end;

Основное - SetForegroundWindow

--------------------

Snowy

Дата 1.3.2006, 16:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Не помогает.
Я уже пробовал и SetForegroundWindow и SetActiveWindow и оба вместе.
Не помогает smile

Romikgy

Дата 1.3.2006, 16:21 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

А если окна нет , т.е. оно хайд?

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Snowy

Дата 1.3.2006, 16:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Блин. Кусок лосося...
Ведь пробовал же - не помогает...
А перекомпиливать модуль кто за меня будет? smile

Перекомпилил - заработало smile

Добавлено @ 16:24

Цитата(Romikgy @ 1.3.2006, 16:21

)

А если окна нет , т.е. оно хайд?

Все равно помогает.

Coobick

Дата 5.11.2011, 14:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 37
Регистрация: 16.8.2010
Где: Владимир

Репутация: нет
Всего: 1

Тоже проблемка с PopupMenu..
Запускаю программу,всё работает как надо. Сворачиваю в трей.. Кликаю по иконке,открываеться программа тоже всё работает..
А вот если в трее в меню выбрать Показать,программа открываеться но меню на ней уже не работае(не показываеться вообще).
Работает только в трее на иконке.
Что не так? smile

Это сообщение отредактировал(а) Coobick - 5.11.2011, 14:56

bems

Дата 26.11.2011, 03:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

M
bems

Один топик — один вопрос!

Пожалуйста, ознакомьтесь с правилами форума.

Тема закрыта. Создайте по одной теме для каждого интересующего вас вопроса.

--------------------

Обижено школьников: 8

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »