مشکل در ویرایش mask edit

[imanpadid]

با سلام خدمت اساتید محترم
اگه ممکنه منو راهنمایی کنین
من تو برنامم از maskedit استفاده کردم با ماسک



!1300/00/00;1;_

زمانی که مقداری در بانک ذخیره شده و برای ویرایش باز می کنم اگر داخل ماسک رو پاک کنم ( رشته داخل ماسک پاک گردد) پیغام
Invalid input value . use escape key to abondon change
ظاهر شده که با زدن کلید escape مقدار قبلی آن آمده و اجازه ثبت خالی ماسک داده نمی شود .:متفکر:

[pezhvakco]

سلام :

اگر داخل ماسک رو پاک کنم ( رشته داخل ماسک پاک گردد) پیغام Invalid input value . use escape key to abondon change
شما یه شرط تعریف کردی و باید براساس همون کار کنی .

چرا مقدار را خالی می کنی و کلید اینتر رو میزنی ؟

[سعید صابری]

از solar calender استفاده کن خوته راحت کن

[imanpadid]

سلام .
من شرط خاصی تو برنامم تعریف نکردم و برنامه که در اختیار کاربران قرار گرفته است وقتی کاربری اشتباه ماسک رو برای ورود تاریخ پر میکنه دیگه امکان پاک کردن وجود ندارد و با پیام بالا روبرو می شود .شاید
!1300/00/00;1;_
رو اشتباه تعریف کردم؟

[SayeyeZohor]

اين شكلي تعريف كن
####/##/##;#;_

[Felony]

سلام .
من شرط خاصی تو برنامم تعریف نکردم و برنامه که در اختیار کاربران قرار گرفته است وقتی کاربری اشتباه ماسک رو برای ورود تاریخ پر میکنه دیگه امکان پاک کردن وجود ندارد و با پیام بالا روبرو می شود .شاید
!1300/00/00;1;_
رو اشتباه تعریف کردم؟
اگر میخوای پیغام خطا رو جور دیگه ای مدیریت کنی میتونی رویداد OnException مورد نظر خودت رو جایگزین رویداد OnException شئ Application بکنی ، اعلان زیر رو تو بخش Private فرم برنامت بنویس :

procedure AppException(Sender: TObject; E: Exception);

و بعد روال رو به صورت زیر تعریف کن :

procedure TForm1.AppException(Sender: TObject; E: Exception);
begin
if (E.ClassType = EDBEditError) then
// Do something here ...
end;

در آخر هم تو رویداد OnCreate فرم برنامت رویداد رو به Application اختصاص بده :

Application.OnException:= AppException;

موفق باشید .