+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : مشكلة في KeyPress (/showthread.php?tid=7650)
الصفحات:
1
2
مشكلة في KeyPress - elzawey2020 - 24-03-2016
السلام عليكم ورحمه الله وبركاته
اخواني الكرام
عندما اضع هذ الكود
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;
بينما عندما نستبدل حرف غ بحرف انجليزي اخر يقبله
هل في مشكلة في الكود مع اللغه العربية
RE: مشكلة في KeyPress - Manarsoft - 24-03-2016
if not (key in ['0'..'9', #8, #13 ,'.','غ', 'a'..'z', 'A'..'Z']) then Key := #0;
RE: مشكلة في KeyPress - elzawey2020 - 24-03-2016
نفس المشكلة اخي مش قابل حرف الـ غ
RE: مشكلة في KeyPress - mobile - 25-03-2016
السلام عليكم جرب هذا الكتاب
إقتباس :كود :https://www.embarcadero.com/images/dm/technical-papers/delphi-and-unicode-marco-cantu.pdf
RE: مشكلة في KeyPress - elzawey2020 - 25-03-2016
بارك الله فيك اخي
RE: مشكلة في KeyPress - S.FATEH - 26-03-2016
حاول باستخدام charinset
RE: مشكلة في KeyPress - elzawey2020 - 26-03-2016
كيف استخدامها اخي
RE: مشكلة في KeyPress - PLANSHARP - 27-03-2016
كود :
if not CharInSet(Key, ['0'..'9', #8, #13 ,'.','غ', 'a'..'z', 'A'..'Z']) then
Key := #0;أيضاً جرب IsLetterOrDigit أو IsLetter, ضمن الوحدة: Character
كل هذا موجود ضمن الكتاب الذي أرفقه الأخ mobile.
RE: مشكلة في KeyPress - elzawey2020 - 27-03-2016
اخي نفس المشكلة لاتقبل الحرف العربي
RE: مشكلة في KeyPress - PLANSHARP - 27-03-2016
ماهو المطلوب بالضبط؟ هل المطلوب هو عدم كتابة رموز؟