الكتابة بالعربية على واجهة دلفي
#1
السلام عليكم ! Smile

أود أن أكتب بالعربية في الخاصية Caption للمكونات TLabel, TButton, TEdit. و ثم حفظ المعلومات من TEdit إلى قاعدة بيانات...
كذلك، كيف أستطيع أن أكتب بالعربية على الواجهة الرئيسية للبرنامج : Form1.Caption ؟

أستعمل Delphi 7 Enterprise و أعلم أنو لا يحوي UNICODE, هل هناك مكون في TMS Software Pack يقوم بهذا العمل ؟

شكرا جزيلا لكم مسبقا ! Smile
الرد
#2
http://www.delphi4arab.net/forum/showthr...p?tid=2000
لا إله إلا الله محمد رسول الله
الرد
#3
وعليكم السلام ورحمة الله
مشكة اللغة تحدث أثناء التصميم
أما أثناء التشغيل فالدلفي يتبع لغة النظام
لذلك يمكن الكتابة باللغة العربية في المكونات بعد تشغيل البرنامج (في الحدث OnCreate مثلا) وهنا تظهر اللغة العربية بشكل عاد.
من الأحسن ضبط خاصية Font.Charset للمكونات على ARABIC_CHARSET قبل التنفيذ.
مثال: ضع Label1 على النموذج واكتب في OnCreate ما يلي:
PHP كود :
procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1
.Caption := 'بسم الله الرحمن الرحيم';
end; 
إذا لم تظهر اللغة العربية في Label1 فالخلل من النظام. أو راجع الإعدادات الإقليمية.
راجع أيضا:
http://www.delphi4arab.net/forum/showpos...stcount=30
للتخلص من مشكلة اللغة نهائيا استخدم Delphi2009 فما فوق.
هذا والله أعلم. بالتوفيق.
اللهم احقن دماء المسلمين، لا تنسوهم بالدعاء...
الرد
#4
السلام عليكم،

إقتباس :http://www.delphi4arab.net/forum/showthr...p?tid=2000
قمت بتحميله، سوف أثبته و أقوم بتجريبه. شكرا على الرابط.

كود :
procedure TForm1.FormCreate(Sender: TObject); begin Label1.Caption := 'بسم الله الرحمن الرحيم'; end;
عبد محاولة كتابة هذا الكود، أحصل على نقاط إستفهام :
كود :
Label1.Caption := '??? ???? ?????? ??????';
ماذا أفعل على مستوى الإعدادات الإقليمية ؟
كذلك، باستعمال هذه الطريقة لا يمكنني كتابة عنوان البرنامج بالعربية على شريط عنوان الواجهة الرئيسية للبرنامج ؟
إقتباس :للتخلص من مشكلة اللغة نهائيا استخدم Delphi2009 فما فوق.

و بالمناسبة، هل يمكن طرح أسئلة متعلقة بشقيق C++ Builder : Delphi ؟

مشكورين إخواني الجدد.
الرد
#5
السلام عليكم و رحمة الله و بركاته ،
أخي بعد الذهاب إلى الإعدادات الإقليمية قم بالتحديثات كما هو موضح في الصورة .
[صورة: panneaux.jpg]

الله يفتح علينا و عليكم.
الرد
#6
إقتباس :عبد محاولة كتابة هذا الكود، أحصل على نقاط إستفهام :
كود:
Label1.Caption := '??? ???? ?????? ??????';
ماذا أفعل على مستوى الإعدادات الإقليمية ؟
كما قال أخونا Unprogramme جزاه الله كل خير.

إقتباس :باستعمال هذه الطريقة لا يمكنني كتابة عنوان البرنامج بالعربية على شريط عنوان الواجهة الرئيسية للبرنامج ؟
بل يمكن ذلك باستعمال نفس الطريقة:
كود :
procedure TForm1.FormCreate(Sender: TObject); begin Caption := 'بسم الله الرحمن الرحيم'; end;
بالتوفيق.
اللهم احقن دماء المسلمين، لا تنسوهم بالدعاء...
الرد


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم