Hello All,
I use a Browse with TSBrowse
How to pushing the down key and call a function?
Thanks
TsBrowse and down key
Re: TsBrowse and down key
Try by using oBrw:bUserKeys codeblock, here you are a working sample:mtajkov wrote:I use a Browse with TSBrowse
How to pushing the down key and call a function?
Code: Select all
#include "Fivewin.ch"
#include "TSBrowse.ch"
Function Main()
Local oDlg, oBrw
Use Customer New Shared
Define Dialog oDlg Size 400, 200 Pixel
@ 0, 0 Browse oBrw Alias "Customer" Of oDlg Size 200, 90 Pixel
oBrw:LoadFields()
oBrw:bUserKeys := {|nKey| If( nKey == VK_DOWN, ( MsgInfo( "Can't Go Down" ), 0 ), Nil ) }
Activate Dialog oDlg Centered
DbCloseAll()
Return Nil
Manuel Mercado Gómez.
manuelmercado at prodigy dot net dot mx