THAT I CAN CALL A FUNCTION
WITH COMBINATION OF KEYS ( shift + F5 )
JOHN
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for CA-Clipper shift + F5
This is a working sample:
EMG
#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oDlg
LOCAL cVar := SPACE( 30 )
SETKEY( VK_F2, { || If( GetKeyState( VK_CONTROL ), MsgInfo( "Hello!" ), ) } )
SETKEY( VK_F3, { || If( GetKeyState( VK_SHIFT ), MsgInfo( "Hello!" ), ) } )
DEFINE DIALOG oDlg
@ 1, 1 GET cVar OF oDlg
@ 3, 1 BUTTON "&Close" OF oDlg ACTION oDlg:End()
ACTIVATE DIALOG oDlg;
CENTER
RETURN NILEMG
Enrico
I A LOT THANK