Xailer & OZ Software

Hello,
in a combobox I want to examine and - if necessary - replace oComboBox:cText
with the correct written Item of oComboBox:aItems.
I use for this the Event-Method OnExit.
METHOD OnExit( oSender, oNextCtl ) CLASS LSEdit
local lOk:=.F.,nPos
nPos:=oSender:FindStringEx(oSender:cText,1)+1
IF lOk:=nPos>0
oSender:cText:=oSender:GetText(nPos)
ELSEIF lOk:=MsgYesNo("'"+oSender:cText+"' ist unbekannt!"+CRLF+;
"Soll der Begriff mit dieser
Schreibweise"+CRLF+;
"in die Gerichtsliste
übernommen werden?","Gerichtsliste")
//...... doing something
//......
ENDIF
RETURN lOk
This is working correctly if the MsgBox will not be called.
In this case, the ComboBox is keeping the focus and the cursor is no more
visible.
What to do?
Regards
Ingo

Ingo,
Fixed. We have modified several pieces of code, that affects directly to 3
modules. Please, test it again adding these 3 modules to your project.
--
Regards,
Jose F. Gimenez


Attached files ComboBox.zip (17.7 KB)Â

Jose,
now it works
Regards
Ingo
"Jose F. Gimenez" <jfgimenez@wanadoo.es> schrieb im Newsbeitrag
news:[email=434e4727@ozsrvnegro.ozlan.local...]434e4727@ozsrvnegro.ozlan.local...[/email]
> Ingo,
>
> Fixed. We have modified several pieces of code, that affects directly to 3
> modules. Please, test it again adding these 3 modules to your project.
>
>
> --
> Regards,
>
> Jose F. Gimenez
>
>