+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف اضع الشرط على edit (/showthread.php?tid=7779)
كيف اضع الشرط على edit - عابدين زينو - 01-05-2016
السلام عليكم كيف اضع شروط على edit
مثال انا عندي اسم موظف لابد من عمل عليه شرط لا يمكن قبول رمز او رقم على edit المتمثلة في الاسم وشكر لكم
RE: كيف اضع الشرط على edit - elzawey2020 - 01-05-2016
ممكن شرح أكثر عن ماذا تريد
RE: كيف اضع الشرط على edit - أبو معاذ - 01-05-2016
وعليكم السلام ورحمة الله وبركاته ،
يمكنك ذلك في الحدث onkeypress لل Edit
كود :
if not (Key in ['A'..'Z', 'a'..'z', Chr(VK_BACK), Chr(VK_DELETE)]) then
Key := #0;RE: كيف اضع الشرط على edit - عابدين زينو - 03-05-2016
(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;
شكرا لك لكن عندما اريد ان ادخل بالعربية لا يقبل هل ممكن مساعدة
RE: كيف اضع الشرط على edit - justnick - 03-05-2016
استخدم الدالة الاتية لمنع الحروف والارقام التى تود منعها
كود :
procedure Tfrm_main.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if CharInSet(key, ['0'..'9','-','#','@','!']) then key := #0;
end;RE: كيف اضع الشرط على edit - عابدين زينو - 03-05-2016
شكرا لك و