Vorheriger Fokus

Thomas55

Hallo,

wenn ich einen Button auf einer GUI anklicke, erhält dieses Fenster natürlich auch den Fokus. Wie kann ich feststellen, welches Fenster vorher den Fokus hatte ?

Szenario: Es sind 5 Mails jeweils im eigenen Fenster geöffnet, ebenso die GUI mit 30 buttons für diverse Texte oder Aktionen. Ich möchte irgendwo in irgendeiner mail den Cursor positionieren und dann einen button anklicken. An dem "Ort vorher" soll Text eingefügt bzw.die Aktion ausgeführt werden.

Danke aus Hamburg.

Thomas

Strahleman

Suche mal in der Hilfe nach @GUI_CtrlId. Und dann bei Wechsel neu abspeichern.

Gesendet von unterwegs mit Tapatalk 2

**Greenhorn**

Moinsen,

Spoiler anzeigen

[autoit]

;[...]
GUIRegisterMsg ($WM_SETFOCUS, "OnSetFocus")
;[...]

[/autoit] [autoit][/autoit] [autoit]

Func OnSetFocus ($hwnd, $message, $wParam, $lParam)

[/autoit] [autoit][/autoit] [autoit]

; hwnd enthält das Handle des Fensters, das den Fokus erhalten hat.
; wParam enthält das Handle des Fensters, das den Fokus verloren hat.

[/autoit] [autoit][/autoit] [autoit]

; Ist das Fenster aus wParam ein Steuerelement und Du brauchst den Identifizierer, dann...
Local $uIDCtrl

[/autoit] [autoit][/autoit] [autoit]

$uIDCtrl = GetDlgCtrlID ($wParam)
;[...]

[/autoit] [autoit][/autoit] [autoit]

Return $GUI_RUNDEFMSG

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func GetDlgCtrlID ($hwndCtl)

[/autoit] [autoit][/autoit] [autoit]

Local $aRes = DllCall ("user32.dll", "INT", "GetDlgCtrlID", _
"HWND", $hwndCtl)
Return $aRes[0]

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit]

Gruß
Greenhorn

Thomas55

Hallo Greenhorn und Strahleman,

erstmal vielen Dank! Leider habe ich immer noch keinen Durchblick, wie das ganze wirklich funktioniert und kann so Deinen Code auch nicht wirlich nachvollziehen.

Der folgende Code ist aus der Hilfe kopiert. In den Zeilen 25-28 dreht sich ja alles nur im Kreis, müßte da nicht etwas rein wie "DoEvents" aus VBA ?

Code

#include <GUIConstantsEx.au3> 


Example() 


Func Example() 
Opt("GUICoordMode", 2) 
Opt("GUIResizeMode", 1) 
Opt("GUIOnEventMode", 1) 


GUICreate("Parent1") 
GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents") 
GUISetOnEvent($GUI_EVENT_MINIMIZE, "SpecialEvents") 
GUISetOnEvent($GUI_EVENT_RESTORE, "SpecialEvents") 




GUICtrlCreateButton("OK", 10, 30, 50) 
GUICtrlSetOnEvent(-1, "OKPressed") 


GUICtrlCreateButton("Cancel", 0, -1) 
GUICtrlSetOnEvent(-1, "CancelPressed") 


GUISetState(@SW_SHOW) 




; Just idle around 
While 1 
Sleep(10) 
WEnd 
EndFunc ;==>Example 


Func OKPressed() 
MsgBox(0, "OK Pressed", "ID=" & @GUI_CtrlId & " WinHandle=" & @GUI_WinHandle & " CtrlHandle=" & @GUI_CtrlHandle) 
EndFunc ;==>OKPressed 




Func CancelPressed() 
MsgBox(0, "Cancel Pressed", "ID=" & @GUI_CtrlId & " WinHandle=" & @GUI_WinHandle & " CtrlHandle=" & @GUI_CtrlHandle) 
EndFunc ;==>CancelPressed 




Func SpecialEvents() 




Select 
Case @GUI_CtrlId = $GUI_EVENT_CLOSE 
MsgBox(0, "Close Pressed", "ID=" & @GUI_CtrlId & " WinHandle=" & @GUI_WinHandle) 
Exit 


Case @GUI_CtrlId = $GUI_EVENT_MINIMIZE 
MsgBox(0, "Window Minimized", "ID=" & @GUI_CtrlId & " WinHandle=" & @GUI_WinHandle) 


Case @GUI_CtrlId = $GUI_EVENT_RESTORE 
MsgBox(0, "Window Restored", "ID=" & @GUI_CtrlId & " WinHandle=" & @GUI_WinHandle) 


EndSelect 


EndFunc ;==>SpecialEvents

Alles anzeigen

Könntest Du bitte Dein Posting in den Code (farbig) kopieren?

Vielleicht habe ich auch nur das Brett vorm Kopf ..........

Danke.

Thomas

**BugFix**

Zitat von Thomas55

In den Zeilen 25-28 dreht sich ja alles nur im Kreis, müßte da nicht etwas rein wie "DoEvents" aus VBA ?

Das wird mit: Opt("GUIOnEventMode", 1) erledigt.

**Greenhorn**

Hi,

leider funktioniert mein Beispiel nicht so wie ich es mir gedacht habe.
Mache es so wie Strahlemann vorschlägt.

Gruß
Greenhorn

progandy

Hier ist auch eine Alternative. Verbiete deinem Fenster einfach, den Fokus zu bekommen.

Spoiler anzeigen

[autoit]

#include <WinAPI.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>

[/autoit] [autoit][/autoit] [autoit]

#region - GUI Create
$hGUI = GUICreate('Keyboard', 200, 80, -1, -1, BitOR($WS_CAPTION, $WS_POPUP, $WS_SYSMENU), BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST, 0x8000000));$WS_EX_NOACTIVATE))
$BUTTON = GUICtrlCreateButton("HI", 10, 10, 20, 20)
GUISetState(@SW_SHOWNOACTIVATE)
#endregion

[/autoit] [autoit][/autoit] [autoit]

#region - GUI SelectLoop
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $BUTTON
Send("HI!"&@CRLF)
EndSelect
WEnd
#endregion

[/autoit]

Thomas55

Hi,

danke allen für die Hilfe - läuft jetzt super.

Gruß Thomas