Subject: | Re: CAPS LOCK
| Date: | 5 Apr 2018 00:27:50 -0400
| From: | "Kevin Zawicki" <numberjack@wi.rr.com>
| Newsgroups: | pnews.paradox-development
|
JI <products@consoftolnline.com> wrote:
>Is there any code that will sense a CAPS lock?
TRY this on a field
Uses "user32.dll"
GetKeyState(nVirtKey cLong)clong [stdcall "GetKeyState"]
endUses
method update()
var
k longInt
endvar
k = GetKeyState(VK_CAPITAL)
;infoText.value = GetKeyState(VK_CAPITAL)
if k = 1 OR k = 65409 then
self.value = "CAPS ON"
else
self.value = "CAPS OFF"
endif
|