掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
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 のボタンだけ、 押しても認識されません。 仮にボタンをクリックをして、カーソルをセットした後は、動作します。 またこのボタンが押せるようになると、他のボタンが押せなくなってしまいます。何か解決策はございますでしょうか？
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.