[Windows API 函数] WinAPI: GetKeyNameText - 根据键盘消息获取按键名称
2013-12-07 16:54
736 查看
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure MyMsg(var msg: TWMKeyDown); message WM_KEYDOWN; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Canvas.Font.Size := 24; Canvas.Font.Style := [fsBold]; Canvas.Font.Color := clRed; Canvas.Brush.Color := clWhite; end; procedure TForm1.MyMsg(var msg: TWMKeyDown); var buf: array[0..31] of Char; rect: TRect; str: string; begin {获取} GetKeyNameText(msg.KeyData, buf, Length(buf)); {画出来} str := buf; rect := ClientRect; Canvas.FillRect(rect); Canvas.TextRect(rect, str, [tfSingleLine, tfCenter, tfVerticalCenter]); inherited; end; end.
相关文章推荐
- WinAPI: GetKeyNameText - 根据键盘消息获取按键名称
- WinAPI: GetKeyNameText - 根据键盘消息获取按键名称
- GetKeyNameText - 根据键盘消息获取按键名称
- WinAPI: GetTextFace - 获取字体名称
- WinAPI: GetTextFace - 获取字体名称
- getkeynametext(键盘消息类型,指针,长度)返回字符串
- c#.net使用WinAPI: GetComputerName - 获取计算机名称
- WinAPI: midiInGetErrorText - 根据错误号得到错误描述
- Delphi中获取某类的祖先类及其所在单元名称(使用GetTypeData(PClass.ClassInfo)函数,并且该类是从TPersistent类的派生类才可以这么使用)
- 获取键盘鼠标操作的函数(GetAsyncKeyState ())
- WinAPI: GetTextAlign - 获取绘图环境的文本对齐方式
- 键盘钩子监测按键后,获取键码及按键名称(MFC)
- php版getElementsByTagName , php版根据标签名获取 标签节点列表.模拟javascript的getElementsByTagName函数
- Qt获取键盘按键事件(Windows API)----StateReader系列
- PreTranslateMessage()函数捕获键盘按键消息
- WinAPI: GetKeyboardType - 获取键盘的类型信息
- 根据对象名称获取对象--document.getElementById
- 键盘按键消息的获取
- WinAPI: GetTextColor - 获取设备环境的文本颜色
- [转]利用winapi向其它进程发送键盘按键消息