| |
| |
|
| - Página 1 - |
|
Hans-Jürgen
Trog | Yo belästige Usted otra vez.
Bisher ha Tryicon funktioniert, aber ahora sólo para Teil:
If @TrayIcon("Msg", 1) = $204 'Rechter Mausbutton gedrückt son no Reacción
aber
if @TrayIcon("Msg", 1) = $202 'linke Botón del ratón klappt
hast Usted dafür auch una solución?
Vielen Dank |
|
| |
| |
| |
|
|
| |
| |
| - Página 1 - |
|
Hans-Jürgen
Trog | H.Brill (03.08.2024)
Scheint en me más el linke Mausbutton a ser. Aber como puede ser se en efecto encima ...Button_UP behelfen, como lo sí para gleichen Ergebnis führt.
En el Ver código fuente reagiert el Programa en no Button.
Was media Usted con "...Button_UP" ? |
|
| |
| |
| |
|
|
H.Brill | Bedienst Si es usted el Programa auch correcto ?
Unten en el Taskleiste Pfeil después de oben (^).
In el Kästchen siehst du entonces dein Trayicon.
Was media Usted con "...Button_UP" ?
So una Mausklick besteht eigentlich de 2 Events. Z.b. una Linksklick de
$0201 : wm_LButtonDown
y
$0202 : wm_LButtonUp
siehe WindowsMessages.
Besser dijo de el Herunterdrücken y el Losslassen el
Botón del ratón. Der Anwender merkt el aber beim Clic nada. Daher
puede ser así una Mausklick auch con el wm_LButtonUp erkennen.
Antes sí una Taste losgelassen voluntad kann, muß ellos sí primero gedrückt
ser. Und así es sí eindeutig, si el Anwender algo angeklickt ha.
So hay en efecto todavía %mousepressed. Den braucht uno aber más
beim Freihandzeichnen, Drag & Drop usw. |
|
| |
| 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. | 03.08.2024 ▲ |
|
| |
|
|
Hans-Jürgen
Trog | [QUOTE_=H.Brill (03.08.2024) [...] 
Bedienst Si es usted el Programa auch correcto ?
Unten en el Taskleiste Pfeil después de oben (^).
In el Kästchen siehst du entonces dein Trayicon.
Hatte Yo no. Yo habe siempre en el Ventana geclickt 
Wenn I el Trayicon klicke, kommt en el linken Mausbutton siempre sólo "linke Botón del ratón losgelassen", ebenso beim Druck el Mausrad. Lo kommen no otro Reaktionen. |
|
| |
| |
| |
|
|
H.Brill | Probiere veces el :
Declarar Int MNummer[], String MString[], Largo ende, x
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"
Ventana 600, 400
ende = 0
Mensajes del usuario $201, $202, $204, $205, $207, $208, $20A
Sinestar encargado ende
WaitInput
x = 0
Localizar 10, 2
x = IndexOf(MNummer[], %UMessage)
Imprimir Espacio$(20)
Localizar 10, 2
Case x > -1 : Imprimir MString[x]
Case %Key = $10 : ende = 1
EndWhile
End
Oder hast du irgendwelche Maustasten encima el Windows-Sistema umgelegt
(z.b. Linkshänder o. ä.) ?
Ansonsten müßte el trabajo. |
|
| |
| 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. | 03.08.2024 ▲ |
|
| |
|
|
Hans-Jürgen
Trog | Das zeigt alles correcto a!
Como baue Yo el nun una? |
|
| |
| |
| |
|
|
Hans-Jürgen
Trog | | Yo hoffe, Yo nerve Usted no! |
|
| |
| |
| |
|
|
H.Brill | va porque el code, el en el TraIcon-Befehlen es, no ?
Mit el Mensajes del usuario va el no. El son sólo para la ventana principal
pensamiento. Und una Handle para el Systray haben wir auch no.
Was en el TrayIcon gedrückt wurde, kann uns sólo el
TrayIcon("msg", 1) liefern.
Printe veces el Messages, el TrayIcon("msg", 1) zurück son, en el Ventana
de. Wenn lo normale Pagar son, mußt du el todavía vorher con Hex$() bearbeiten.
Tal vez kommen wir entonces más.
Como ya dijo : en me funktioniert lo, como se. |
|
| |
| 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. | 03.08.2024 ▲ |
|
| |
|
|
Hans-Jürgen
Trog | rechte maustaste bringt 517 y kein Texto
linke Botón del ratón bringt 514 y Texto linke Botón del ratón losgelassen |
|
| |
| |
| |
|
|
Hans-Jürgen
Trog | | después de Umwandlung kommt rechte Botón del ratón losgelassen. Gedrückt kommt nada. |
|
| |
| |
| |
|
|
H.Brill | Ist doch entonces correcto, son entonces el normalen Zahlenwerte en lugar de Hex :
Bringt con Hex$(517) - 205 y Hex$(514) - 202
Das Dollarzeichen para Hex kommt natürlich todavía davor. Geht en efecto
otra vez zuück : Imprimir VAL("$205"), VAL("$202").
Und si uno nun Zahlenwerte oder Hexwerte miteinander vergleicht,
es doch schnuppe.
Como Yo oben ya erklärte : losgelassen (UP) heißt soviel como gedrückt.
Den Valor de DOWN erhälst du sólo, si du el botón del ratón gedrückt hälst.
El Werte de TrayIcon("Msg", 1) son jedenfalls correcto. |
|
| |
| 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. | 03.08.2024 ▲ |
|
| |
|
| |
| |
| - Página 2 - |
|
|
Hans-Jürgen
Trog | vielen Dank. Dann voluntad Yo veces sehen, como yo einbaue  |
|
| |
| |
| |
|
|
H.Brill | Na, como auch otro Abfragen en uno GUI auch :
Declarar Int MNummer[], String MString[], Largo ende, x, hicon
hicon = Crear("hIcon", "Gesicht")
Título de la ventana "Mittlere Botón del ratón en el TrayIcon final Programa !"
Ventana 600, 400
CreateMenu %HWnd
TrayIcon("add", %hWnd, 1, hIcon, "Mein Icon")
ende = 0
Sinestar encargado ende
WaitInput
Select TrayIcon("msg", 1)
CaseOf $202: SetMenuItem 101
CaseOf $205: Aktion(2)
CaseOf $208: Aktion(3)
EndSelect
Case %Key = $10 : ende = 1
Case MenuItem(101) : MessageBox("Linke Botón del ratón -> Aktion 1", "Info", 0)
EndWhile
TrayIcon("delete", %hWnd, 1)
DeleteObject hIcon
Proc Aktion
Parámetros Largo action
Select action
'CaseOf 1 : MessageBox("Linke Botón del ratón -> Aktion 1", "Info", 0)
CaseOf 2 : MessageBox("Rechte Botón del ratón -> Aktion 2", "Info", 0)
CaseOf 3 : ende = 1
EndSelect
ENDPROC
End
Ob nun en el Haupt - Bucle el Aktion ausgeführt se oder como en me encima
una Proc, restos Geschmackssache y es dir überlassen. Puesto que hay lo mehrere
Möglichkeiten. Yo habe oben en el Code para Aktion 1 una Menüpunkt gesetzt
y encima MenuItem(101) abgefragt.
Wichtig es, el Menü (CreateMenu) antes el TrayIcon a redactar, sonst
verschwindet el Icon plötzlich.
Ansonsten kannst du dir deiner Kreativität freien Lauf dejar. Como ginge auch
el Mensajes del usuario, indem du ans %HWnd una eigens definierte Message schikst y %uMessage abfragst. Meistens aber verwende Yo el Usermessages, si yo Multiprozessing con esta habe.Como kann Yo en
pExec el %Hwnd con transferencia. Wenn Yo entonces en el Prozess el Hauptprogramm encima algo informieren muß, va el entonces auch encima SendMessage. |
|
| |
| 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. | 04.08.2024 ▲ |
|
| |
|
(885)
Deutsch
English
Français
Español
Italia