How to simulate the VK_RETURN to leave programmatically the listbox?
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour XBROWSE edit_listbox
// 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
EndCaseMarc Venken
Using: FWH 23.08 with Harbour
Using: FWH 23.08 with Harbour
Thanks Marc, but i will not end the dialog i will only after a keystroke leave the xbrowse-cell with the listbox and go to the next cell.
oBrw:goright() in place of the end ?
Marc Venken
Using: FWH 23.08 with Harbour
Using: FWH 23.08 with Harbour
In this case the :bOnPostEdit from this cell are not evaluated. In normal we leave the listbox-cell with pressing "Enter". I will virtual press "enter" from program. My question with other words: What method are called after pressing "Enter"?