delphi4arab منتديات دلفي للعرب

نسخة كاملة : مشكلة في KeyPress
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
السلام عليكم ورحمه الله وبركاته
اخواني الكرام
عندما اضع هذ الكود
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; 

بينما عندما نستبدل حرف غ بحرف انجليزي اخر يقبله
هل في مشكلة في الكود مع اللغه العربية
if not (key in ['0'..'9', #8, #13 ,'.','غ', 'a'..'z', 'A'..'Z']) then Key := #0;
نفس المشكلة اخي مش قابل حرف الـ غ
السلام عليكم جرب هذا الكتاب

إقتباس :
كود :
https://www.embarcadero.com/images/dm/technical-papers/delphi-and-unicode-marco-cantu.pdf
بارك الله فيك اخي
حاول باستخدام charinset
كيف استخدامها اخي
كود :
 if not CharInSet(Key, ['0'..'9', #8, #13 ,'.','غ', 'a'..'z', 'A'..'Z']) then    Key := #0;

أيضاً جرب IsLetterOrDigit أو IsLetter, ضمن الوحدة: Character

كل هذا موجود ضمن الكتاب الذي أرفقه الأخ mobile.
اخي نفس المشكلة لاتقبل الحرف العربي
ماهو المطلوب بالضبط؟ هل المطلوب هو عدم كتابة رموز؟
الصفحات : 1 2