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

名前

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

本文 行き詰っていますので、ご質問させてください… 今、TForm1→PageControl1→Button0〜10、Ｅとあります。 BUtton0-10にOnkeydownを共有し、以下のコードを書いています。 ---- procedure TForm1.KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin If Chr(key) = '0' then begin Button0Click(Sender); end ---- 条件文は異なるだけで同じ文が０〜９まであるわけなんですが、 条件式が If key = VK_RETURN のボタンだけ、 押しても認識されません。 仮にボタンをクリックをして、カーソルをセットした後は、動作します。 またこのボタンが押せるようになると、他のボタンが押せなくなってしまいます。何か解決策はございますでしょうか？