من برای محدود کردن کاربران به این که فقط عدد وارد نماییند به این صورت عمل کرده ام
if (ord(Key)<48) or (ord(key)>57) then
key:=#0;
مشکل اینجاست که کلید back هم غیر فعال میشه
من برای محدود کردن کاربران به این که فقط عدد وارد نماییند به این صورت عمل کرده ام
if (ord(Key)<48) or (ord(key)>57) then
key:=#0;
مشکل اینجاست که کلید back هم غیر فعال میشه
اين كد ره تو on key press بنويس و كد خودتو بگذار كنار
if key NOT in ['1','2','3',4','5','6',7','8','9','0',#8,#13] then
key :=#0برو حالشو ببر
شرمنده هر عدد رو بايد به صورت 'عدد'بنويسي تو كد بالا عدد 4 و 7رو دقت كن اشتباه من بود
آخرین ویرایش به وسیله daffy_duck376 : پنج شنبه 28 آذر 1387 در 10:25 صبح دلیل: ويرايش
بازم همین طوریه رو not ارور میگیره
if not (key in ['0'..'9',#8,#13]) then
key :=#0;
يه نگاهي به اين تاپيك بنداز توش يه برنامه هست كه يه عالمه كد رو توش هست اين كد هم توش هست برنامه رو خودم نوشتم كد ها هم تست شده هستن
https://barnamenevis.org/showthread.php?t=118369