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
|