>>Nadya,
>>
>>How about this:
>>

>>oActive = ThisForm.ActiveControl
>>if (vartype(m.loObject) = "O") or (vartype( m.oActive ) = 'O')
>>   llReturn = (inlist(lower(justext(sys(1272, m.loObject))),"cmdcancel","cmdclose") and mdown()) OR ;
>>      inlist(lower(m.oActive.Name),"cmdcancel","cmdclose")
>>else
>>   llReturn = .f.
>>endif
>>

>>
>>I think, you don't even have to use AMOUSEOBJ(). Use ActiveControl object is enough. But I don't know, just in case <bg>
>>
>>HTH
>
>This can work as well. It doesn't answer the thread question, though.


Yes it doesn't, sorry. I just thought that it would be easier <g>.
Anyway, I think you can bind to windows messages (WM_SYSCHAR) to get the shortcut key.

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/userinput/keyboardaccelerators/keyboardacceleratorreference/keyboardacceleratormessages/wm_syschar.asp