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 控制台关闭指定窗口

Delphi 另类计算程序代码运行耗时

Delphi windows 编程[10] - wm_lbuttondown、wm_lbuttonup 和 wm_mousemove 消息

Delphi中break,exit,abort跳出循环的比较

Delphi 组件篇 之 tbevel组件

webbrowser里网页根据文字判断来点击链接

Delphi inputbox 输入时显示*号

Delphi 制作一个内网传播的程序

Delphi 捕捉异常 try except语句 和 try finally语句用法以及区别

Delphi post登陆Delphi盒子论坛源码

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

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