掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TEditに数字入力に制限するには？ (ID：2397)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
皆さん初めまして初心者です。勉強を始めたばかりです。よろしくお願いします。 環境: Win98 D7Pro TEditに数値入力しようと思い下記のように数字以外は入力不可にしたつもりだったのですが 英数字ともに入力可となってしまいます。どうすればよいのでしょうか？ また数値欄なので、右詰め入力または右詰表示にしたいのですがプロパティを見ても それらしきものがないので方法がわかりません。 ご教示願えればたすかります。 procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Key < ord('0')) or (Key > ord('9')) then Key := 0; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.