XProfan

Deutsch

While

Hallo Leute,

ich bin hier am verzweifeln! Habe in der letzten Zeit viel mit Hotkeys etc. herumexperimentiert und bin (nicht zuletzt durch dieses Forum

) auf den Befehl "Registerhotkey" aus der Win-API gestoßen.
Dieser funktioniert super, allerdings nur in XProfan 10. Sobald ich versuche, diesen Befehl in XProfan 11 anzuwenden, gibt's da gewisse Probleme.
Könnte vielleicht einmal jemand einen Beispielcode online stellen, wie ich "Registerhotkey" in XProfan 11 richtig verwende? Mir wäre schon geholfen, wenn ich einfach nur mal sehe, ie man mit eben diesem Befehl einen Hotkey belegt, der z.B. beim Druck eine Messagebox erzeugt (oder irgendwas anderes macht...).

Ich wäre demjenigen, der einen solchen Beispielcode parat hätte, zutiefst ergeben

Viele Grüße, Felix

12.02.2011 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Schau mal so gehts ab X11:
Kompilieren Markieren Separieren

'{$cleq}
cls
registerHotKey(%hWnd,0,2,65)//strg a
subClass %hWnd,1

while 1

    waitInput

wend

end

subClassProc

    case subClassMessage(%hWnd,$312) : messagebox "","",0// wm_hotKey

endproc

Salve.

12.02.2011 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Müßte das nicht mit AddHotkey auch möglich sein? Gibt's doch ab 11 oder?

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

12.02.2011 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Lt. Hilfe ab 10:

XProfan X2 Hilfedatei

AddHotKey N1, N2. N3
Version 10.0

aber vlt. wollte er eben RegisterHotKey - drum das Beispiel.

Gäbe auch noch die Hook-Keule: [...]

13.02.2011 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

While

Super, das Beispiel hat mir sehr weitergeholfen

AddHotkey würde natürlich gehen, das wäre dann aber nicht systemweit; der HotKey wäre dann ja nur im Programmfenster definiert.
Was mir ehrlichgesagt noch etwas unklar ist, ist $312. Wie genau kommt das zu Stande? Wäre interessant zu wissen, wenn man mehr als einen Hotkey belegen möchte.

13.02.2011 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Habsch geschrieben: $312 ... // wm_hotKey

Ist halt der Wert der Konstanten wm_hotKey.

In hiword(&slParam) steht der Tastencode - somit kannst Du beliebig viele Tasten abprüfen die Du mit RegisterHotKey registriert hast.

Lad mal Konstantinopel [...]

und gib $312 ein -

hilfreiches Tool!

13.02.2011 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Schau mal HotKeyNachrichten an UserMessages weitergeleitet:
Kompilieren Markieren Separieren

'{$cleq}
cls
registerHotKey(%hWnd,65,2,65)//strg a
registerHotKey(%hWnd,66,2,66)//strg b
registerHotKey(%hWnd,67,2,67)//strg c
subClass %hWnd,1
userMessages 1024// wm_user

while 1

    waitInput

    select %uMessage

        caseof 1024

        messageBox "Taste: "+str$(hiWord(&ulParam)),"",0

    endSelect

wend

end

subClassProc

    case subClassMessage(%hWnd,$312) : sendMessage(%hWnd,1024,&swParam,&slParam)// wm_hotKey, wm_user

endproc