Paradox Community

Items in pnews.paradox-development

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



Copyright © 2004 thedbcommunity.com