السلام عليكم كيف اضع شروط على edit
مثال انا عندي اسم موظف لابد من عمل عليه شرط لا يمكن قبول رمز او رقم على edit المتمثلة في الاسم وشكر لكم
ممكن شرح أكثر عن ماذا تريد
وعليكم السلام ورحمة الله وبركاته ،
يمكنك ذلك في الحدث onkeypress لل Edit
كود :
if not (Key in ['A'..'Z', 'a'..'z', Chr(VK_BACK), Chr(VK_DELETE)]) then
Key := #0;
(01-05-2016, 09:45 AM)Unprogramme كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته ،
يمكنك ذلك في الحدث onkeypress لل Edit
كود :
if not (Key in ['A'..'Z', 'a'..'z', Chr(VK_BACK), Chr(VK_DELETE)]) then
Key := #0;
شكرا لك لكن عندما اريد ان ادخل بالعربية لا يقبل هل ممكن مساعدة
استخدم الدالة الاتية لمنع الحروف والارقام التى تود منعها
كود :
procedure Tfrm_main.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if CharInSet(key, ['0'..'9','-','#','@','!']) then key := #0;
end;