داشتن يك edit عددي

دوستان عزيز ميشه يگيد چه طوري متونم يك اديت درست كنم كه فقط عدد را قبول كند
سرچ كردم نبود ، ممنون

شاید جستجو میکردی زودتر به تیجه میرسیدی

کد:

---

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',#27,#13]) then
  key:=#0;

end;

---

سلام

خوب نگشتيد :

کد:

---

http://forum.p30world.com/showthread.php?t=85593&highlight=KeyPress

---

کد:

---

http://forum.p30world.com/showthread.php?t=172725&highlight=KeyPress

---

دوستان عزيز ميشه يگيد چه طوري متونم يك اديت درست كنم كه فقط عدد را قبول كند

نقل قول:

---

نوشته شده توسط mojtaba-design [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

دوستان عزيز ميشه يگيد چه طوري متونم يك اديت درست كنم كه فقط عدد را قبول كند
سرچ كردم نبود ، ممنون

---

شما میتونید از کامپوننت developer express ستفاده کنید. در این سری کام÷وننت اون چیزی که شما دنبالش میگردید به عنوان یک edit وجود دارد.

مجموعه كامپوننتهاي زيادي اين كارو ميكنه.
به جز اوناز SpineEdit هم كه توي خود دلفي هست ميتوني همين استفاده رو ببري. و ضمنا توي پست دو هم راه حلي پيشنهاد شده.

اگه ميشه اين كامپوننتو به اشتراك بگذاريد

نقل قول:

---

نوشته شده توسط Ramin Khan [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

اگه ميشه اين كامپوننتو به اشتراك بگذاريد

---

به اسم Devexpress ExpressBarsجستجو کنید :

http://www.forum.p30world.com/showthread.php?t=184442&highlight=Devexpress+Expre ssBars+Suite