XBROWSE edit_listbox
Posted: Tue May 28, 2019 10:03 am
How to simulate the VK_RETURN to leave programmatically the listbox?
Code: Select all
// 1
:bKeyChar := { |nKey| If( nKey == VK_RETURN, ;
( nSelect := PRD->veld, oDlg:End() ), nil ) }
// 2
:bKeyDown := { |k| If( k == VK_RETURN,( oDlg1:end() ),;
if (K == VK_DELETE, Del_row(oBrw),nil )) }
// 3
oBrwK:bKeyDown := {|nKey| MyKey(nKey,oBrwK,oDlgK) }
Function MyKey(nKey,oGrid,oDlg)
Do case
case nKey==VK_RETURN
if msgYesNo("Wenst U deze klant te gebruiken")
oDbfinfo:klantcode = klant->klant_nr
oDbfinfo:firma = klant->naam_1
oDlg:End()
endif
// here your function of modify record
//case nKey==VK_INSERT
// here your function of add record
//case nKey==VK_DELETE
// here your function of delete record
//case nKey==VK_ESCAPE
//OTHERWISE
//IF nKey >= 96 .AND. nKey <= 105
// here your function of search record
//ELSEIF HB_ISSTRING(CHR(nKey))
// here your function of search record
//ENDIF
EndCase