名前
題名
▼ blue_timeさん > 久しぶりの書き込みになります。 > コンポーネントをありがたく使わせていただいております。 > > > > とりあえず、EditExit に書いてみたら一応動作はしてくれました。 > > > > スミマセン．とりあえずしのいでください． > > ということで、うまくいっているように思っていたのですが、今度は > 入力欄を空欄にしてコンポーネントを抜けようとすると、 > 「空白の入力欄があります。」というエラーメッセージが出て、日付を > 入力せずにコンポーネントを抜けることができなくなります。 > （日だけに '1' が入れてあるので当然と言えば当然ですが・・・。） > > そこで、またとりあえずの対応ですが、 > > function TplDateEdit.CheckDateError: Boolean; > > の最初のあたりで、 > > case FEditStyle of > //年月 > desYearMonth: > begin > //年が入力されていない時には、日もクリアする。 > if FYearEdit.Text='' then FDayEdit.Text := ''; > end; > //年 > desYear: > begin > //年が入力されていない時には、月日もクリアする。 > if FYearEdit.Text='' then > begin > FMonthEdit.Text := ''; > FDayEdit.Text := ''; > end; > end; > end; > > という具合に、非表示の項目をクリアすることにしました。 > > 自分が今のところ「年月日」と「年月」しか使用していないので、 > その他の設定の場合を考慮していません。 > > 余裕がおありでしたら、対応していだだけるとありがたいです。
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link