Question about SET KEY

[driessen]

Hello,

I have already a statement like :

Code: Select all  Expand view  RUN

SET KEY VK_F9 TO TestProc

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

Thanks.

[Antonio Linares]

Michel,

Code: Select all  Expand view  RUN

procedure TestProc

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

return


[dutch]

Dear Michel,
This code may help.

Code: Select all  Expand view  RUN

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

[driessen]

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,

[dutch]

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

[Antonio Linares]

Michel,

> When I press Shift-F9, nothing happens.

What control has the focus when you press them ?