كيف اضع الشرط على edit

[عابدين زينو]

السلام عليكم  كيف  اضع  شروط  على  edit   

  مثال  انا  عندي  اسم   موظف  لابد  من  عمل  عليه  شرط لا يمكن  قبول  رمز او رقم  على edit  المتمثلة في الاسم    وشكر  لكم

[elzawey2020]

ممكن شرح أكثر عن ماذا تريد

[أبو معاذ]

وعليكم السلام ورحمة الله وبركاته ،
يمكنك ذلك في الحدث onkeypress لل Edit

كود :

if not (Key in ['A'..'Z', 'a'..'z', Chr(VK_BACK), Chr(VK_DELETE)]) then   Key := #0;

[عابدين زينو]

وعليكم السلام ورحمة الله وبركاته ،
يمكنك ذلك في الحدث onkeypress لل Edit

كود :

if not (Key in ['A'..'Z', 'a'..'z', Chr(VK_BACK), Chr(VK_DELETE)]) then   Key := #0;

شكرا  لك  لكن  عندما  اريد  ان  ادخل  بالعربية  لا يقبل  هل ممكن  مساعدة

[justnick]

استخدم الدالة الاتية لمنع الحروف والارقام التى تود منعها

كود :

procedure Tfrm_main.Edit1KeyPress(Sender: TObject; var Key: Char); begin if CharInSet(key, ['0'..'9','-','#','@','!']) then key := #0; end;

[عابدين زينو]

شكرا لك و