ورود

View Full Version : اعمال محدوديت براي Edit


smhzkk61
جمعه 06 دی 1387, 07:09 صبح
باسلام به دوستان گرامي
مي خوام براي اديت محدوديت قائل بشم مثلا تو برنامه اي كه دارم نمرات دانشجوها رو وارد مي كنم سقف نمرات هم از صفر تا 100 هست مي خوام برنامه ام به صورتي باشه كه كاربر با وارد كردن عدد غير از اين مقادير برنامه با صدور پيغامي اونو متوجه كنه كه عدد وارد شده معتبر و مجاز نيست
ممنونم
Hsimple11
جمعه 06 دی 1387, 10:08 صبح
در رویداد OnExit مربوط به Edit این کار را بکنید:


If StrToInt (Edit.Text) >100 Then
Begin
ShowMessage ('Wrong Number!');
Edit.SetFocus;
End;

البته میتونید بجای Edit از SpinEdit استفاده کنید که خودش Property هایی با عنوان MinValue و MaxValue دارد.
DelphiFriend
دوشنبه 12 اسفند 1387, 13:31 عصر
اگه منظورتون رو خوب فهميده باشم شما بايد مقادير ورودي Edit رو براش تعريف کنيد مثلا بگيد بايد ورودي Edit يکي از مقادير a,b,c باشه وگر نه با پيغامي اخطار بده.
موفق باشيد