Hier mal was zum testen:
Code: Alles auswählen
Enumeration
#wndFenster
#strString
EndEnumeration
Global ENDE.i
OpenWindow(#wndFenster,#PB_Ignore,#PB_Ignore,800,600,"Test",#PB_Window_ScreenCentered|#PB_Window_SystemMenu)
StringGadget(#strString,10,10,500,20,"")
Repeat
; sollte dies den Focus auslösen?
SetActiveGadget(#strString)
Select WaitWindowEvent()
Case #PB_Event_Gadget
Select EventGadget()
Case #strString
Select EventType()
Case #PB_EventType_LostFocus
Debug "Focus erhalten"
EndSelect
EndSelect
Case #PB_Event_CloseWindow
ENDE=1
EndSelect
Until ENDE=1