关于控制CAPS LOCK按键_Delphi

  • 内容
  • 评论
  • 相关

用于function中

const
   SCROLLLOCK = 1;
   NUMLOCK    = 2;
   CAPSLOCK   = 4;

var
   Status:  Byte;
   PntK:    ^Byte;

http://www.gaodaima.com/65597.html关于控制CAPS LOCK按键_Delphi

begin
     PntK := Ptr($40, $97); {directly point in
memory}
     Status := Byte(PntK^); {read the status}
     if (NUMLOCK and Status) = NUMLOCK then {if NUM
LOCK is on}
         Status := Status and (255 - NUMLOCK) {turn it
off}
     else
         Status := Status or 2; {turn it
on}
     Pntk^ := Status; {poke in
memory (don't works)}
end;

A:
I use this procedures to turn on the caps lock if it isn't
already on when
the user enters my DBloockup combo.  This gets rid of the
nasty problem
of case-sensitive indexes.

procedure TMainForm.StudentLookupEnter(Sender: TObject);
Var Level : Integer;
    KeyState : TKeyBoardState;
begin
  {check if caps-lock is on - if not turn it on}
  Level := GetKeyState(VK_CAPITAL);
  GetKeyboardState(KeyState);
  CapsLockStatus := KeyState;
  If Level = 0 then
    begin
      KeyState[VK_CAPITAL] := 1;
      setKeyboardState(KeyState);
    end;
end;

欢迎大家阅读《关于控制CAPS LOCK按键_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码

原创文章,转载请注明: 转载自搞代码

本文链接地址: 关于控制CAPS LOCK按键_Delphi

微信支付二维码

微信 赏一包辣条吧~

支付宝支付二维码

支付宝 赏一听可乐吧~

评论

0条评论

发表评论

电子邮件地址不会被公开。 必填项已用*标注