delphi 如何取得键盘每个键

本文整理自网络，侵删。

 unit keycode; 

interface 

uses 
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dia
logs, 
StdCtrls; 

type 
TForm1 = class(TForm) 
Label1: TLabel; 
private 
{ Private declarations } 
protected procedure mykeydown(var msg:Twmkeydown);message wm_keydo
wn; 
public 
{ Public declarations } 
end; 

var 
Form1: TForm1; 

implementation 

{$R *.DFM} 
procedure tform1.mykeydown (var msg:Twmkeydown); 
begin 
label1.Caption:=inttostr(msg.charcode); 
end; 
end. 

相关阅读 >>

Delphi ioutils单元查找文件夹下所有文件

Delphi利用系统环境变量获取常用系统目录

Delphi 锁定鼠标移动范围

Delphi datasnap的线程池

Delphi获取千千静听歌词下载地址源码

Delphi pos的用法

Delphi memo1 字符串快速查找定位2

Delphi 动态修改exe文件的图标

Delphi分享pos函数。(比fastpos还要快)

Delphi把id字段中的最大值赋给edit1.text

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

转载请注明出处：木庄网络博客 » delphi 如何取得键盘每个键