bkeydown WITH GET using oDatabase

[dagiayunus]

Dear Sir,

How to use trap F2 KEY using get with oDatabase

// from sample dbf01.prg
REDEFINE GET oDbf:First ID ID_NAME OF oDlg UPDATE
oDbf:First:bKeyDown:= { |nKey| If( nKey == VK_F2, msginfo("F2 Pressed"), nil ) }

give following error
Error description: Error BASE/1005 No exported variable: BKEYDOWN

Regards
Yunus.

[Marcelo Via Giglio]

Hello,

change it in this way

Code: Select all  Expand view

REDEFINE GET oGet VAR oDbf:First ID ID_NAME OF oDlg UPDATE
oGet:bKeyDown:= { |nKey| If( nKey == VK_F2, msginfo("F2 Pressed"), nil ) }

 

regards

Marcelo

[dagiayunus]

Thanks Mr.Marcelo.

It works now.

Regards