sys_down_key not understanding

[Dave Mac Callum]

Hi there,

Am trying to get the following code to work

dim hlt_key as l 'halt emails key
dim countr as n

hlt_key = .f. 'init

while hlt_key = .f.
hlt_key = sys_key_down("ENTER") 'BREAK
countr = countr + 1
end while

ui_msg_box("Script Test","Counter = " + countr)

I understand that if I hold down ENTER key hlt_key should TRUE

What do I need to do to alter hlt_key to TRUE ??

Looking forward

[MikeC]

Re: sys_down_key not understanding

Dave,
Try an if-then statement instead of a while-end while.
Only way I could test it in the interactive window and works.

[Dave Mac Callum]

Re: sys_down_key not understanding

Hi Mike,

Thanks for your response.

Sorry to be a pain, but I cannot get my Hlt_key True. I'm using the following code

'Date Created: 16-May-2009 01:45:13 PM
'Last Updated: 18-May-2009 10:06:05 AM
'Created By : Administrator
'Updated By : Administrator

dim hlt_key as l 'halt emails key
dim countr as n

debug(1)

hlt_key = .f. 'init

Lab1:

if hlt_key = .t. then
goto finish '----->>>>>
else
' hlt_key = sys_key_down("ENTER") 'BREAK
' hlt_key = sys_key_down("ESC") 'BREAK
hlt_key = sys_key_down("F1") 'BREAK

countr = countr + 1
goto Lab1 '----->>>>>
end if
'
'---------------------
'
Finish:

ui_msg_box("Script Test","Counter = " + countr)

Any Ideas ?

[Tom Cone Jr]

Re: sys_down_key not understanding

Dave, I have zero experience with the function you're using. Is there a reason you aren't using an OnKey event script in your form to trap these keystrokes?

[MikeC]

Re: sys_down_key not understanding

Dave,
Same question here as Tom. An OnKey event with a script similar to below works and is used quite often by many here. I have a feeling that for the sys_key_down() function to work you have to be holding the key down all the while the script is running to trigger the .T. you want.

'OnKey Events on Forms
'Handling Key Events
'The general approach to intercepting and handling keystrokes in your 'application is as follows.

IF a_user.key.value = "{<Key_to_be_trapped>}" THEN
    a_user.key.handled = .T.
    IF a_user.key.event = "down" THEN

         <Action_to_be_taken> 

    END IF 
END IF
'===============================================

IF a_user.key.value = "{^d}" .OR. a_user.key.value = "{Delete}" .OR. a_user.key.value = "{Backspace}" THEN
    a_user.key.handled = .T.
    IF a_user.key.event = "down" THEN

         msgbox("Key value handled")

    END IF 
END IF

[Dave Mac Callum]

Re: sys_down_key not understanding

Hi there Mike, Tom

Thanks for the support. Without it I would have died long ago !

I used OnKey suggestion and it works on a Form Acc_Sel_Fst_Lst as a test (which I am posting separately on the Message board, because I have an issue trying to load variables on Form Acc_Sel_Fst_Lst).

However, I cannot get it working on my Program ? Haven't a clue why. I attach the code and resulting error.

Any ideas ?

Thanks

[MikeC]

Re: sys_down_key not understanding

Dave,
I do not see an event that you have attached the code to....it needs to be placed in the OnKey event of the form.

[Dave Mac Callum]

Re: sys_down_key not understanding

Hi Mike,

Oops. Thanks for your quick response. This response is from the "Was my face red" department

Thanks