topic-9208

Posts: 1467

Joined: Mon Oct 10, 2005 11:26 AM

Question about SET KEY
Posted: Thu Dec 13, 2007 04:16 PM

Hello,

I have already a statement like :

SET KEY VK_F9 TO TestProc

But how can I use this command to connect a procedure to SHIFT-F9 ?

Thanks.

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Question about SET KEY
Posted: Thu Dec 13, 2007 04:45 PM

Michel,

Code: Select all Collapse

procedure TestProc

   if GetKeyState( VK_SHIFT )
      ... your code ...
   endif

return

regards, saludos

Antonio Linares
www.fivetechsoft.com

dutch

Posts: 1598

Joined: Fri Oct 07, 2005 05:56 PM

Question about SET KEY
Posted: Thu Dec 13, 2007 05:36 PM

Dear Michel,
This code may help.

Code: Select all Collapse

SETKEY( VK_F9 , {|| if(GetKeyState( VK_SHIFT ), IntMail(), if(GetKeyState( VK_CONTROL ), LogBook(), VcRms() ) ) } )

Regards,

Dutch

FWH 2304 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio

FWPPC 10.02 / Harbour for PPC (FTDN)

ADS V.9 / MySql / MariaDB

R&R 12 Infinity / Crystal Report XI R2

(Thailand)

driessen

Posts: 1467

Joined: Mon Oct 10, 2005 11:26 AM

Question about SET KEY
Posted: Thu Dec 13, 2007 10:14 PM

Sorry guys,

Thanks a lot for your help.

I tried both possibilities but unfortunately without any luck.

When I press Shift-F9, nothing happens.

Greetings,

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

dutch

Posts: 1598

Joined: Fri Oct 07, 2005 05:56 PM

Question about SET KEY
Posted: Fri Dec 14, 2007 02:09 AM

Dear driessen,

You must put this line on the top of Main Procedure and the rest will work fine. I use this for many years.

Regards,
Dutch

Regards,

Dutch

FWH 2304 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio

FWPPC 10.02 / Harbour for PPC (FTDN)

ADS V.9 / MySql / MariaDB

R&R 12 Infinity / Crystal Report XI R2

(Thailand)

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Question about SET KEY
Posted: Fri Dec 14, 2007 08:56 AM

Michel,

> When I press Shift-F9, nothing happens.

What control has the focus when you press them ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion