delphi 切换大小写的例子

本文整理自网络，侵删。

 
CapLock(True); (* 大写 *) CapLock(False); (* 小写 *)
//(* 键盘大小写锁定 *)Procedure CapLock(bLockIt: boolean);Var  Level : Integer;  KeyState : TKeyBoardState;begin  Level := GetKeyState(VK_CAPITAL);  GetKeyboardState(KeyState);  if bLockIt then    KeyState[VK_CAPITAL] := 1  else    KeyState[VK_CAPITAL] := 0;  setKeyboardState(KeyState);end;
 

相关阅读 >>

Delphi 中的常用事件

Delphi禁止tedit, tmemo右键上下文弹出菜单

Delphi让程序运行后自我删除或恢复名称

Delphi 记录鼠标点击坐标

Delphi基于高斯-拉普拉斯算子的图像边缘检测

Delphi xe5 安卓设置屏幕横屏竖屏

Delphi调用winapi: getsystemmetrics - 获取系统度量等数值信息

tsqlconnection连接mysql(utf8)的问题

Delphi 弹出带黄色感叹号对话框提醒

Delphi 程序启动窗体控制在桌面右下角

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 切换大小写的例子