Oops, sorry I forgot something.
Add these 2 lines:
Thisform.cmdSave.click()
nodefault
do case
case nKeyCode = -8 && F10 mapped to F9
Thisform.cmdSave.click() <--This line fires the menu button. Always put
All your code in the command button, Not in the keypress method.
NoDefault <-- THIS LINE will clear the F10 from getting into text box!!!
case ...
endcase
>Why there an ascii code in the text box after I press function key ?
>How to make the text box don't show this funny ascii code ?
>
>
>This has worked well for us.
>In your startup prg put: on key lable F10 keyboard '{F9}'
>This Must be global.
>
>Then in keypress:
>do case
>case nKeyCode = -8 && F10 mapped to F9
>case ...
>endcase
>
>>Hi ! can any one tell me how to set function key in command button ?
>>
>>the coding below will works if I set sysmenu off,
>>but I need to show my menu on top
>>so what should I do ?
>>
>>
>>thisform.keypreview=.t.
>>
>>thisform.keypress
>>do case
>>case nkeycode=-9 && F10
>> thisform.cmdSave.click
>>endcase
Beer is proof that God loves man, and wants him to be happy. - Benjamin Franklin
John J. Henn