English
Forum

TrayIcon Msg windows 11

 

Georg
Teles
Korrigiere straight one of my Tools 1Click-Screenshot, where here the TrayIcon klicked and is place at testing solid, the normal Linksklick and Rechtsklick under windows 11 not at all react ... Doppelklicks neither.

windows 11 reacted evident only at release, any Source means at Anklicken with Messages $201 (mouse left You can) / $204 (mouse right You can) are accordingly with $202 (mouse left release) / $205 (mouse right release) To supplant. Habs under Windows XP, 7, 8, 10 and 11 tested, the goes. The doppelklick though is me under windows 11 not famous.

have now not in the deep gebohrt, but ... windows 11 reacted at Mittleren Click with Message the left Mausklicks (release) with the Message $202 (514)

otherwise are The durchgestrichenen Messages under 11 not currently

TrayIcon("Msg", n1):

$201 (513): left Mouse button pressed
$202 (514): left Mouse button losgelassen
$203 (515): Double click with linker Mouse button
$204 (516): rights Mouse button pressed
$205 (517): rights Mouse button losgelassen
$206 (518): Double click with right Mouse button
$207 (519): Mittlere Mouse button pressed
$208 (520): Mittlere Mouse button losgelassen
$209 (521): Double click with mittlerer Mouse button


Regards
 
Alle Sprachen
TC-Programming [...] 
XProfan 8.0 - 10.0 - X2 - X3 - X4

vor 8 Tagen  
 




H.Brill
there shining really what with WIN11 changed been To his.
my Program of then runs neither More, as should.
solely wm_LButtonDown or. wm_RButtonDown becomes yet
recognized.
Declare Long MNummer[], end, pos, String MString[]
MNummer[0] = $0201 : MString[0] = "wm_LButtonDown"
MNummer[1] = $0202 : MString[1] = "wm_LButtonUp"
MNummer[2] = $0204 : MString[2] = "wm_RButtonDown"
MNummer[3] = $0205 : MString[3] = "wm_RButtonUp"
MNummer[4] = $0207 : MString[4] = "wm_MButtonDown"
MNummer[5] = $0208 : MString[5] = "wm_MButtonUp"
MNummer[6] = $20A  : MString[6] = "Mausrad"
MNummer[7] = $000F : MString[7] = "WM_PAINT"
MNummer[8] = $0214 : MString[8] = "WM_SIZING"
MNummer[9] = $0203  : MString[9] = "Maus - semidetached - Klick"
end = 0
'User Messages $201, $202, $203, $204, $205, $207, $208, $20A, $000F, $0214, $10
Window 600, 400

WhileNot end

    WaitInput
    pos = IndexOf(MNummer[], %Message, 0)

    If pos > - 1

        Locate 10, 2
        Print Space$(50)
        Locate 10, 2
        Print MString[pos], Hex$(MNummer[pos])

    EndIf

    If %Message = $10

        end = 1

    EndIf

EndWhile

End

with the User Messages shining But to go :
Declare Long MNummer[], end, pos, String MString[]
MNummer[0] = $0201 : MString[0] = "wm_LButtonDown"
MNummer[1] = $0202 : MString[1] = "wm_LButtonUp"
MNummer[2] = $0204 : MString[2] = "wm_RButtonDown"
MNummer[3] = $0205 : MString[3] = "wm_RButtonUp"
MNummer[4] = $0207 : MString[4] = "wm_MButtonDown"
MNummer[5] = $0208 : MString[5] = "wm_MButtonUp"
MNummer[6] = $20A  : MString[6] = "Mausrad"
MNummer[7] = $000F : MString[7] = "WM_PAINT"
MNummer[8] = $0214 : MString[8] = "WM_SIZING"
MNummer[9] = $0203  : MString[9] = "Maus - semidetached - Klick"
end = 0
Window 600, 400
User Messages $201, $202, $203, $204, $205, $207, $208, $20A, $000F, $0214

WhileNot end

    WaitInput

    If %Message = %UMessage

        pos = IndexOf(MNummer[], %UMessage, 0)

        If pos > -1

            Locate 10, 2
            Print Space$(50)
            Locate 10, 2
            Print MString[pos], Hex$(MNummer[pos])

        EndIf

    EndIf

    If %Message = $10

        end = 1

    EndIf

EndWhile

End

for the Doppelklicks would that here To use :
Declare x&
Def GetClassLong(2) !"USER32", "GetClassLongA"
Def SetClassLong(3) !"USER32", "SetClassLongA"
Cls
User Messages $203,$206,$209
x&=GetClassLong(%hwnd,-26)
x& = x& | 8
SetClassLong(%hwnd,-26,x&)'CS_DBLCLKS Class-Style settle.

While 1

    waitinput
    Case %key=2:BREAK

    If %umessage=$203

        Print "Linker Double click."

    ElseIf %umessage=$206

        Print "Rechter Double click."

    ElseIf %umessage=$209

        Print "Mittlerer Double click."

    EndIf

EndWhile

User Messages 0
End

found here in the Forum.
 
Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.
vor 7 Tagen  
 




H.Brill
Ah, have straight seen, that I yet windows 10 on it have.
Müßtest You hold time with Ver 11 try.
 
Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.
vor 7 Tagen  
 




Georg
Teles
Hi,

The Messages functions in the Window correct with Win 11, solely on the TrayIcon How supra described reacted Win 11 only with release the left/Rechten Mouse button instead of pressed (mittlere Mouse button not at all or interprets as Linksklick/Loaslassen) - on Doppelklicks reacted the TrayIcon under Win 11 utterly not.

To Win 10 is hierbei everything hint top

I suspect, that with Win 11 "Badges" dazukamen, z.B. How with Handys under Email-App The amount ungelesener Mails as example s.  [...]  . Möglicherweise has on the Messagesierung  (hehe) under Win 11 therefore what changed has ? have there utterly no idea, what the under Win 11 angeht...





Regards
 
TC-Programming [...] 
XProfan 8.0 - 10.0 - X2 - X3 - X4

vor 4 Tagen  
 




H.Brill
Nunja, The Badges there indeed already in windows 10. by me are you activate.
see tappt im dunkeln Yes yourself ex and on in the Taskbar.


windows 10: Badges in Taskbar enable / deaktivieren
around the Badges in the windows-10-Taskbar To enable, goes your folgendermaßen to:

Öffnet The windows-Settings with the Tastenkombination windows + i.
clicking on The Schaltfläche Personalisierung and dial left whom exhaust Taskbar from.
Scrolls something down.
position whom switch with Badges on Taskleisten-Schaltflächen Show of from on One, circa tappt im dunkeln To enable.
if the switch already on One standing, can your it activate, around the Badges To deaktivieren.


Müßtest You then indeed to that testing deaktivieren can.
 
Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.
vor 4 Tagen  
 



Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

129 Views

Untitledvor 0 min.
ByteAttackGestern (18:52)
E.T.Gestern (08:29)
Jürgen StrahlVorgestern (05:09)
H.Brill vor 4 Tagen
More...

Themeninformationen

this Topic has 2 subscriber:

H.Brill (3x)
Georg Teles (2x)


Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie