التحكم بال edit

[alyoseef]

السلام عليكم ورحمه الله
اود اتحكم فى الedit كى تقبل ارقام فقط وبعد قبول الارقام تقبل مفتاح الانتر لتنتقل للسطر التالى مرفق صوره وكود ولله الامر من قبل ومن بعد افادكم الله وزادكم علما وخلقا

[musvc]

[color="purple"]في المرفقات مثال على السريع
اعتقد انه الشيء الذي تبحث عنه
سلام[/color]

[alyoseef]

مشكور اخى الغالى على الاجابه الوافيه ودائما الى الامام ان شاء الله

[الكاسر الآخر]

تكتب في حدث OnkeyPress

كود :

if not (Key in ['0'..'9','.',#13,#8]) then Key:=#0;

وفي حدث OnkeyUp

كود :

if Key = VK_RETURN then Showmessage(Edit1.Text);

أو أي كود آخر