名前
題名
▼ 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. >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link