Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 242901 (4337)
  Suchen
 Zurück zur Übersicht
 AutorThema: CR auf Edit-Feld
Edmund Coenen
Datum:12.06.02 07:22 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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