كيفية عمل listbox لا يقبل سوى الاعداد

[jeanjamil]

السلام عليكم
كيفية عمل listbox لا يقبل سوى الاعداد

[gheislam]

وعليكم السلام .... استخدم الكود التالي  في مكان الادخال

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  والنقطة اذا كنت تريد اضافة اي شيء آخر ضعه بين علاماتي تنصيص '.'

 وافصل بينها بـفاصلة  ( , )