|
久しぶりの書き込みになります。
コンポーネントをありがたく使わせていただいております。
> > とりあえず、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;
という具合に、非表示の項目をクリアすることにしました。
自分が今のところ「年月日」と「年月」しか使用していないので、
その他の設定の場合を考慮していません。
余裕がおありでしたら、対応していだだけるとありがたいです。
|