دادن پیغام خطا به هنگام نوشتن حروف

[مائده 100]

سلام
می خواهم وقتی در یک edit حروف تایپ کردم پیغام خطا ی نوشتن حروف را بدهد.

[vcldeveloper]

در رویداد OnKeyPress اون Edit شرط میزارید تا حروف را دریافت نکنه. اگر از نسخه های قبل از دلفی 2009 استفاده می کنید:


if not (Key in ['0'..'9',#8,#9]) then
raise Exception.Create('Invalid character');

اگر از دلفی 2009 استفاده می کنید:


if not CharInSet(Key, ['0'..'9',#8,#9]) then
raise Exception.Create('Invalid Character');

[مائده 100]

اگر بخواهم این پیغام را به هنگام زدن یک کلید به من نمایش دهد آن را چگونه بنویسم؟

[vcldeveloper]

چه کلیدی؟

----

[مائده 100]

چه کلیدی؟

----
مثلا وقتی می خواهم فیلدهایم را در بانک بریزم در آن موقع کلید ثبت را که می زنم به من اعلام کند که نباید حروف بنویسی و باید عدد تابپ کنید

[vcldeveloper]

خب در رویداد OnClick اون دکمه مقدار وارد شده برای فیلد را بررسی می کنید، و اگر مطابق الگوی مورد نظر شما نبود، به کاربر پیغام میدید.