Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 242901 (4337)

| Suchen
| Zurück zur Übersicht

Autor | Thema: CR auf Edit-Feld
Edmund Coenen
| Datum:12.06.02 07:22 (edmund.coenen@t-online.de) |
Hallöchen, ich habe ein Prblemchen welches ich mir nicht erklären kann. In einem Fenster mit Stil 512 habe ich mehrere Edit Felder. Ich möchte jetzt eine Verarbeitung starten bei CR in diesem Feld. Sobald ich jedoch CR in diesem Edit Feld drücke springt der Focus auf das nächste Feld. Die Verarbeitung im eigentlichen Edit Feld wird nicht ausgeführt. Hat vielleicht einer von euch eine Erklärung für mich? Ich sag schon mal danke. Edmund
Alexander Schoenfeld
| Datum:12.06.02 08:07 (alexander.schoenfeld@chronologic.de) |
Hallo Edmund, du könntest abfragen, ob %key = 13 (Es wurde in einem einzeiligen Editierfeld oder einer Listbox <Enter> gedrückt). Dann kannst du mit %GetFocus bzw. @GetFocus() prüfen, in welchem Editfeld Enter gedrückt wurde. Mit freundlichem Gruss / kind regards, Alexander Schoenfeld Email: alexander.schoenfeld@chronologic.de
Edmund Coenen
| Datum:12.06.02 14:06 (edmund.coenen@t-online.de) |
Hallo Alexander, genau das frage ich ja ab. Das irre daran ist, das @GetFocus nach CR bereits auf das nächsten Edit Feld zeigt und nicht mehr auf das welches die Verarbeitung initiert hat. Gruß Edmund
Alexander Schoenfeld
| Datum:12.06.02 14:32 (alexander.schoenfeld@chronologic.de) |
Hallo Edmund, hier die Lösung :)
     WindowStyle 540
     Cls

     Declare hEdit1&, hEdit2&
     Let hEdit1& = CreateEdit(%hWnd,"",10,10,200,21)
     Let hEdit2& = CreateEdit(%hWnd,"",10,50,200,21)
     Declare LastFocus&

     WhileNot Equ(%Key, 2)
       Waitinput
       If Equ(%Key, 13)
         If Equ(LastFocus&, hEdit1&)
           Messagebox("Enter in Edit 1 !", "", 0)
         ElseIf Equ(LastFocus&, hEdit2&)
           Messagebox("Enter in Edit 2 !", "", 0)
         EndIf
       EndIf
       Let LastFocus& = %GetFocus
     Wend
Mit freundlichem Gruss / kind regards, Alexander Schoenfeld Email: alexander.schoenfeld@chronologic.de
Edmund
| Datum: 12.06.02 21:19 (edmund.coenen@t-online.de) |
Hallo Alexander, danke für die prompte Hilfe. Ich werde die Lösung in das Programm einzubauen. Gruß Edmund

| Zurück zur Übersicht