Tippt der User gerade?

[Joel]

Hi, ich versuche gerade eine Funktion zu schreiben, die herausfindet, ob ein benutzer gerade im Text-Feld tippt. Habe auch schon eien geschrieben, die ist aber niczh so Zuverlässig und gut. Vielleicht habt ihr noch bessere Ansätze!!!

Code: Alles auswählen

Procedure Tippen(dummy.l)
Shared Input_Text$
Shared Input_Text1$
Repeat 
Input_Text$ = ""
Input_Text1$ = ""
Input_Text$ = GetGadgetText(#StringGadget_Input)
Delay(1000)
Input_Text1$ = GetGadgetText(#StringGadget_Input)
If Input_Text$ <> Input_Text1$
SendNetworkString(ConnectionID, "Tippen"+Seperator$+"Ja")
EndIf 

If Input_Text$ = Input_Text1$
SendNetworkString(ConnectionID, "Tippen"+Seperator$+"Nein")
EndIf 
ForEver 
EndProcedure

[ts-soft]

Wie wäre es mit EventType() und #PB_EventType_Change

[Andesdaf]

Als code:

Code: Alles auswählen

 If OpenWindow(0, 0, 0, 230, 90, "Event-Handling Beispiel...", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

   StringGadget  (1, 10, 10, 200, 20, "Klick mich")

   Repeat
     Event = WaitWindowEvent()
     
     Select Event
     
       Case #PB_Event_Gadget
         Select EventGadget()
           Case 1
             If EventType() = #PB_EventType_Change
               Debug "Change"
             EndIf
         EndSelect
       
     
     EndSelect
   Until Event = #PB_Event_CloseWindow
 EndIf

Ja ich weiß. Kann man sich auch selber denken...

[Joel]

Ja OK danke....Habe es aber schon hinbekommen!!

[Andesdaf]

war ja auch nur ne kleene ergänzung. Siehe auch den letzten Satz.