В примере TrayIcon после клика по иконке форма неактивна

[Mihail_]

Здравствуйте, скачал пример TrayIcon, хороший пример, все подробно закомментировано и т.д. - но столкнулся с проблемой что после события клика по иконке, форма становится неактивна до следующего клика.. Думал кнопка кнопка мыши "залипает" пробовал mouse event с отпусканием кнопок - не помогло.. Посмотрите плиз в чем проблема.

[iGrok]

Бррр.. Где ты это чудо взял?
Код какой-то бредовый..

Вот это - вообще что-то сверхгениальное. Выше моего понимания...

Код: Выделить всё

Dim MouseButton As Integer
      MouseButton = (X And &HFF) / Screen.TwipsPerPixelX   


[awl100Alex]

А вопрос-то, кстати, интересный!
Я сам задавался им не раз. Действительно, первый клик мышки, после вызова формы по иконке в трее, полностью игнорируется формой. Видимо, это как-то связано с работой самой оконной процедуры этой формы. Но как избежать такого неприятного эффекта???

iGrok
Согласен. Действительно конъюнкция установленного байта с X абсолютно бессмысленна...

Код: Выделить всё

MouseButton = (X And &HFF) / Screen.TwipsPerPixelX

<=>

Код: Выделить всё

MouseButton = X / Screen.TwipsPerPixelX

[iGrok]

Но как избежать такого неприятного эффекта???

Элементарно, Ватсон. Делать не через одно место.

iGrok
Согласен. Действительно конъюнкция установленного байта с X абсолютно бессмысленна...

Нет, не бессмысленна. Этим от четырёхбайтовой переменной фактически отрезается только последний байт, и обнуляются все остальные. Достаточно эффективный способ получить из лонга последний байт, "обрезав" лишние биты.

Меня скорее беспокоит применение подобной операции к аргументу типа Single. У меня подобная операция никаких вразумительных результатов не дала.
И совершенно уже не понятно, с какого боку тут TwipsPerPixel...
Хотя нет. Откуда берётся это вроде понял... Но почему деление применяется уже после наложения маски?
Короче, это так и остаётся выше моего понимания.

[un1]

Событие MouseDown в данном случае не совсем корректно! Замени его на MouseMove

В модуле:

Код: Выделить всё

   Private Const NIF_MESSAGE = &H1
   Private Const NIF_ICON = &H2
   Private Const NIF_TIP = &H4
   Private Const NIM_ADD = &H0
   Private Const NIM_MODIFY = &H1
   Private Const NIM_DELETE = &H2
   Private Const WM_RBUTTONDOWN = &H204
   Private Const WM_NULL = &H0
   'Объявляем соответствующую константу
   Private Const WM_MOUSEMOVE = &H200


Код: Выделить всё

      Public Sub Add()
      Dim ret As Long
      NID.uID = m_hWnd
      NID.hwnd = m_hWnd
      NID.hIcon = m_Icon
      NID.szTip = Left$(m_ToolTipText, 63) & Chr$(0)
      NID.uFlags = NIF_TIP + NIF_MESSAGE + NIF_ICON
     
      NID.uCallbackMessage = WM_MOUSEMOVE
     
      NID.cbSize = Len(NID)
   
      ret = Shell_NotifyIcon(NIM_ADD, NID)
     
     End Sub


На форме:

Код: Выделить всё

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    cTray.CallEvent X, Y
End Sub

[iGrok]

Гм. А вот теперь я понял почему так. Да, с MouseMove должно работать без проблем.

Думаю, можно ещё на MouseUp вместо MouseDown перевесить. В принципе, тоже должно работать.

[awl100Alex]

un1
Гениально! Всё работает! Молодец!

Этим от четырёхбайтовой переменной фактически отрезается только последний байт, и обнуляются все остальные.

Теперь понятно с выделением... но почему последний???.. Выделяется младший байт, то есть первый. Отсчет ведется справа налево - ведь так?

[iGrok]

un1
Гениально! Всё работает! Молодец!

Этим от четырёхбайтовой переменной фактически отрезается только последний байт, и обнуляются все остальные.

Теперь понятно с выделением... но почему последний???.. Выделяется младший байт, то есть первый. Отсчет ведется справа налево - ведь так?

Ага. Он самый. Младший, то есть первый.

[Mihail_]

огромное спасибо!
все работает


p.s.

MouseUp вместо MouseDown перевесить

если не менять код, а просто вместо MouseDown подставить MouseUp, то почему-то вообще событие не проходит


--
пример с необходимыми изменениями

[iGrok]

если не менять код, а просто вместо MouseDown подставить MouseUp, то почему-то вообще событие не проходит

Нужно ещё в классе в Add менять CallBackMessage на WM_MOUSEUP.
Но пусть уж действительно будет на mousemove...