Posts: 222
Joined: Mon Jun 04, 2012 12:00 PM
Re: Difference xBrowse ::KeyDown and ::KeyChar
Posted: Mon Jul 02, 2012 01:52 PM
oApp():bKeyDown := {|nKey| Stephan_Tecla(nKey,oApp():oGrid,oCont,oApp():oDlg) }
function Stephan_Tecla(nKey,oGrid,oCont,oDlg)
Do case
case nKey==VK_RETURN
Function for edit record
case nKey==VK_INSERT
function for add record
case nKey==VK_DELETE
function for delete a record
case nKey==VK_ESCAPE
oDlg:End()
otherwise
if nKey >= 96 .AND. nKey <= 105
function for search a record
elseif HB_ISSTRING(CHR(nKey))
function for search a record
endif
EndCase
return nil