掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
時間入力の制限をかけるには？ (ID:11664)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
先程「時間の計算方法は？」で質問したえみです。 「解決」としてしまいましたが、もう１点聞きたいことがありますので、 新規スレッドを立てます。 時間の計算方法は出来たのですが、今度は入力制限について教えてください。 入力する時に「__:__」というように「時間：分」のフォーマットでしか 入力出来ないようにしようと思います。 MaskEditに使用して、EditMaskプロパティで「ShortTime」を選択しました。 （ShortTimeはマスクファイルでus.demを読み込んで選択しました） これで入力は出来るようになりました。 そこで、MaskEditからフォーカスが外れた時に入力値チェックを行おうと思います。 OnExitイベントに以下の処理を追加しました。 var StartTime : TTime; begin try if MaskEdit1.Text <> ' : ' then StartTime := StrToTime(MaskEdit1.Text); except ShowMessage(MaskEdit1.Text + 'はエラーです'); MaskEdit1.SetFocus; Exit; end; end; このようにすると、例えば「27:00」と入力するとエラーメッセージが表示されます。 そして入力値を全て削除すると、フォーカスが外れた時に 「入力値が不正です。エスケープキーで変更を取り消せます」の メッセージが表示されてしまいました。 仕方なく正しい値「22:00」を入力するとエラーも表示されなくなります。 この状態で再度入力値を削除すると、エスケープキーのエラーが表示されてしまいます。 このエスケープキーのエラーが出ないようにするにはどうしたらいいですか？ 教えてください。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.