KeyDownイベントでのキー入力文字制限をするには？

解決

Kaizarsome 2005-06-09 19:51:33 No: 15467

TEditや、TMemoを使用し、KeyDownイベント内にて、入力文字の制限を半角大文字英字のみ入力可能としたいのですが、KeyPressイベント時の無効文字（#0）のような入力を無視するような制御処理は、KeyDownイベントの場合はどのように行うのでしょうか？
ご指導よろしくお願いします。

deldel 2005-06-09 20:03:08 No: 15468

KeyDown は分かりませんが、KeyPress なら以下でできます。
if not (Key in ['A'..'Z']) then Key := #0;

Kaizarsome 2005-06-09 20:24:50 No: 15469

KeyDownイベントでの実装とありましたが、ファンクションキー等の制御は特に必要がない事が解ったので、KeyPressでの実装に変えました。