喫茶XRAY [Mr.XRAY掲示板]

ローカルキーフックだけですが，
Halbow 資料館に掲載しているコンポーネントを使用すると簡単です．
まっ，あれですね．とくかく何でもやってみることです．ハイ．
敷居が高いとか低いとか，
足が短いから敷居をまたげないとか言っていないで... (^^;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, KeyHookUnit;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    KeyHook1: TKeyHook;
    procedure KeyHook1KeyDown(virtualkey: Cardinal);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

//=============================================================================
//  キーフック開始
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
  KeyHook1.Enabled := True;
end;

//=============================================================================
//  キーフック終了
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
begin
  KeyHook1.Enabled := False;
end;

//=============================================================================
//  KeyHook1のOnKeyDownイベント処理
//=============================================================================
procedure TForm1.KeyHook1KeyDown(virtualkey: Cardinal);
var
  LText : string;
begin
  if Edit1.Focused then begin
    LText := Format(' %.2d ($%.2x)', [virtualkey, virtualkey]);
    Panel1.Caption := Chr(virtualkey) + LText;
  end;
end;

end.