Español
Foro

TrayIcon Msg Windows 11

 

Georg
Teles
Korrigiere gerade uno meiner Tools 1Click-Screenshot, wobei hier el TrayIcon angeklickt se y lugar beim Testen fest, el normale Linksklick y Rechtsklick bajo Windows 11 garnicht reagieren ... Doppelklicks auch no.

Windows 11 reagiert offensichtlich sólo cuando se libera, todos Fuente also beim Anklicken con Messages $201 (Ratón links anklicken) / $204 (Ratón rechts anklicken) son somit con $202 (Ratón links loslassen) / $205 (Ratón rechts loslassen) a sustituir. Habs bajo Windows XP, 7, 8, 10 y 11 getestet, el va. Der doppelklick allerdings me está bajo Windows 11 no bekannt.

Posesiones ahora no en el Tiefe gebohrt, aber ... Windows 11 reagiert beim Mittleren Mausklick con Message des linken Mausklicks (loslassen) con el Message $202 (514)

Ansonsten son el durchgestrichenen Messages bajo 11 no aktuell

TrayIcon("Msg", N1):

$201 (513): Linke Botón del ratón gedrückt
$202 (514): Linke Botón del ratón losgelassen
$203 (515): Haga doble clic en con linker Botón del ratón
$204 (516): Rechte Botón del ratón gedrückt
$205 (517): Rechte Botón del ratón losgelassen
$206 (518): Haga doble clic en con rechter Botón del ratón
$207 (519): Mittlere Botón del ratón gedrückt
$208 (520): Mittlere Botón del ratón losgelassen
$209 (521): Haga doble clic en con mittlerer Botón del ratón


Grüße
 
Alle Sprachen
TC-Programming [...] 
XProfan 8.0 - 10.0 - X2 - X3 - X4

vor 7 Tagen  
 




H.Brill
Como scheint wirklich qué en WIN11 geändert worden a ser.
Mein Programa de damals se ejecuta auch no mehr, como se.
Lediglich wm_LButtonDown o. wm_RButtonDown se todavía
erkannt.
Declarar Largo MNummer[], ende, 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 - Doppel - Klick"
ende = 0
'Mensajes del usuario $201, $202, $203, $204, $205, $207, $208, $20A, $000F, $0214, $10
Ventana 600, 400

Sinestar encargado ende

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

    If pos > - 1

        Localizar 10, 2
        Imprimir Espacio$(50)
        Localizar 10, 2
        Imprimir MString[pos], Hex$(MNummer[pos])

    EndIf

    If %Message = $10

        ende = 1

    EndIf

EndWhile

End

Mit el Mensajes del usuario scheint lo aber a ir :
Declarar Largo MNummer[], ende, 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 - Doppel - Klick"
ende = 0
Ventana 600, 400
Mensajes del usuario $201, $202, $203, $204, $205, $207, $208, $20A, $000F, $0214

Sinestar encargado ende

    WaitInput

    If %Message = %UMessage

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

        If pos > -1

            Localizar 10, 2
            Imprimir Espacio$(50)
            Localizar 10, 2
            Imprimir MString[pos], Hex$(MNummer[pos])

        EndIf

    EndIf

    If %Message = $10

        ende = 1

    EndIf

EndWhile

End

Für el Doppelklicks wäre que aquí utilizarse :
Declarar x&
Def GetClassLong(2) !"USER32", "GetClassLongA"
Def SetClassLong(3) !"USER32", "SetClassLongA"
Cls
Usermessages $203,$206,$209
x&=GetClassLong(%hwnd,-26)
x& = x& | 8
SetClassLong(%hwnd,-26,x&)'CS_DBLCLKS Class-Style conjunto.

Mientras que 1

    waitinput
    Case %key=2:BREAK

    If %umessage=$203

        Imprimir "Linker Haga doble clic en."

    ElseIf %umessage=$206

        Imprimir "Rechter Haga doble clic en."

    ElseIf %umessage=$209

        Imprimir "Mittlerer Haga doble clic en."

    EndIf

EndWhile

Usermessages 0
End

Gefunden hier en el Foro.
 
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 6 Tagen  
 




H.Brill
Ah, habe gerade gesehen, Yo todavía Windows 10 en él habe.
Müßtest du sólo veces con Ver 11 probieren.
 
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 6 Tagen  
 




Georg
Teles
Hi,

el Messages trabajo en el Ventana einwandfrei en Win 11, lediglich en el TrayIcon como oben beschrieben reagiert Win 11 sólo Al soltar el Linken/Rechten Botón del ratón en lugar de gedrückter (mittlere Botón del ratón garnicht oder interpretiert como Linksklick/Loaslassen) - en Doppelklicks reagiert el TrayIcon bajo Win 11 absolut no.

Bis Win 10 es hierbei alles tip top

Yo vermute, dass en Win 11 "Badges" dazukamen, z.B. como en Handys bajo Email-App el número ungelesener Mails como Ejemplo s.  [...]  . Möglicherweise ha se a el Messagesierung  (hehe) bajo Win 11 deshalb qué geändert ha ? Posesiones como absolut ni idea, qué el bajo Win 11 angeht...





Grüße
 
TC-Programming [...] 
XProfan 8.0 - 10.0 - X2 - X3 - X4

Vorgestern (17:31)  
 




H.Brill
Nunja, el Badges hay en efecto ya en Windows 10. En me son ellos aktiviert.
Sehe ellos sí selber de y a en el Taskleiste.


Windows 10: Badges en Taskleiste aktivieren / deaktivieren
Um el Badges en el Windows-10-Taskleiste a aktivieren, va ihr folgendermaßen antes:

Öffnet el Windows-Einstellungen con el Tastenkombination Windows + i.
Klickt en el Schaltfläche Personalisierung y wählt links el Menüpunkt Taskleiste de.
Scrollt algo herunter.
Stellt el Schalter en Badges en Taskleisten-Schaltflächen Mostrar de Aus en Ein, en ellos a aktivieren.
Falls el Schalter ya en Ein es, könnt ihr ihn betätigen, a Badges a deaktivieren.


Müßtest du entonces en efecto para Testen deaktivieren puede.
 
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.
Vorgestern (18:48)  
 



Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

107 Views

Untitledvor 0 min.
Jürgen StrahlGestern (05:09)
H.BrillVorgestern (18:48)
Georg TelesVorgestern (17:33)

Themeninformationen

Dieses Thema ha 2 subscriber:

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


Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie