Onkeydownで数字と仮想キーの入力をするには (ID:38522)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 困られている現象を完全には再現/理解はできないのですが、実現したいことが下記のようなことではないかと推測して見ました。 ●Form1→PageControl1→TabSheet1→Button0〜9,Eがある (TabSheet1を挿入し、Button10は削除) ●キーボードより、数字'0'〜'9'を押した場合に対応するButton0〜9のOnClickイベントが発生 ●キーボードより、リターンキーを押した場合にはButtonEのOnClickイベントが発生 ここで厄介なのは、TButtonにフォーカスがある場合には、リターンキーを押すとTForm1.KeyDownは処理されずにフォーカスがあるTButtonのOnClickイベントが発生することです。 よって、TButtonのOnClickイベントで、フォーカスをTabSheet1へ移動させました。 また、タブによるフォーカス移動もしないように全てのTButtonのTabStopプロパティをFalseにします。 Delphi6 Personal,Win2000の環境で希望通りの処理とはなっています。 なお、TForm1.KeyDownというprocedure名ではなく、TForm1.FormKeyDownを使っています。 // *** サンプルコード *** // procedure TForm1.ButtonClick(Sender: TObject); begin ShowMessage(TButton(Sender).Caption+'が押されました'); //実際のマウスクリックでフォーカスがボタンに移動していた場合に //リターンキーでボタンのOnClickイベントが発生するのを回避するために //PageControl1のTabSheet1にフォーカスを移す if TButton(Sender).Focused then TabSheet1.SetFocus; end; procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); var sNo:String; btn:TButton; begin if Key=VK_RETURN then begin ButtonE.Click; end else begin //キーボードからの'1'〜'9'までの数字入力に対応 //テンキーからの数字入力には別途対応が必要 sNo:=Chr(key); try if StrToInt(sNo)<10 then begin btn:=FindComponent('Button'+sNo) as TButton; btn.Click; end; except end; end; end;