+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيفية عمل listbox لا يقبل سوى الاعداد (/showthread.php?tid=7501)
كيفية عمل listbox لا يقبل سوى الاعداد - jeanjamil - 10-02-2016
السلام عليكم
كيفية عمل listbox لا يقبل سوى الاعداد
RE: كيفية عمل listbox لا يقبل سوى الاعداد - gheislam - 11-02-2016
وعليكم السلام .... استخدم الكود التالي في مكان الادخال
PHP كود :
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
end;
if not (key in ['0'..'9', #8, #13 ,'.']) then
key := #0;
end;
هذه التعليمة تقبل ادخال سوى الارقام من 0 الى 9 والنقطة اذا كنت تريد اضافة اي شيء آخر ضعه بين علاماتي تنصيص '.'
وافصل بينها بـفاصلة ( , )