topic-4618

Board index FiveWin for Harbour/xHarbour nKey return Value

areang

Posts: 128

Joined: Mon Jul 31, 2006 03:23 PM

nKey return Value
Posted: Wed Oct 18, 2006 06:56 AM

Hi All !

How to get nKey return value of Alt+F1, Ctrl+F1 and Shift+F1

Thanks

Best Regard
Areang

Enrico Maria Giordano

Posts: 9020

Joined: Thu Oct 06, 2005 08:17 PM

Re: nKey return Value
Posted: Wed Oct 18, 2006 07:24 AM

This is a sample for Ctrl+F1 and Shift+F1:

Code: Select all Collapse

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg

    LOCAL cVar := SPACE( 30 )

    SETKEY( VK_F1, { || Keys() } )

    DEFINE DIALOG oDlg

    @ 1, 1 GET cVar OF oDlg

    @ 3, 1 BUTTON "&Close" OF oDlg ACTION oDlg:End()

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL


STATIC FUNCTION KEYS()

    IF GETKEYSTATE( VK_CONTROL )
        ? "CTRL-F1"
    ENDIF

    IF GETKEYSTATE( VK_SHIFT )
        ? "SHIFT-F1"
    ENDIF

    RETURN NIL

EMG

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg

James Bott

Posts: 4840

Joined: Fri Nov 18, 2005 04:52 PM

nKey return Value
Posted: Wed Oct 18, 2006 07:08 PM

Areang,

I believe the Alt keys are reserved for Windows (menus and hot-keys).

James

FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10

FiveTech Support Forums

Continue the discussion