المشاركات : 2
المواضيع 1
:
: 0
الإنتساب : Nov 2009
السلام عليكم !
أود أن أكتب بالعربية في الخاصية Caption للمكونات TLabel, TButton, TEdit. و ثم حفظ المعلومات من TEdit إلى قاعدة بيانات...
كذلك، كيف أستطيع أن أكتب بالعربية على الواجهة الرئيسية للبرنامج : Form1.Caption ؟
أستعمل Delphi 7 Enterprise و أعلم أنو لا يحوي UNICODE, هل هناك مكون في TMS Software Pack يقوم بهذا العمل ؟
شكرا جزيلا لكم مسبقا !
المشاركات : 132
المواضيع 15
:
: 0
الإنتساب : Dec 2008
لا إله إلا الله محمد رسول الله
المشاركات : 2,293
المواضيع 157
:
: 81
الإنتساب : Dec 2008
وعليكم السلام ورحمة الله
مشكة اللغة تحدث أثناء التصميم
أما أثناء التشغيل فالدلفي يتبع لغة النظام
لذلك يمكن الكتابة باللغة العربية في المكونات بعد تشغيل البرنامج (في الحدث 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 فما فوق.
هذا والله أعلم. بالتوفيق.
اللهم احقن دماء المسلمين، لا تنسوهم بالدعاء...
المشاركات : 2
المواضيع 1
:
: 0
الإنتساب : Nov 2009
السلام عليكم،
إقتباس :http://www.delphi4arab.net/forum/showthr...p?tid=2000
قمت بتحميله، سوف أثبته و أقوم بتجريبه. شكرا على الرابط.
كود :
procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Caption := 'بسم الله الرحمن الرحيم';
end;
عبد محاولة كتابة هذا الكود، أحصل على نقاط إستفهام :
كود :
Label1.Caption := '??? ???? ?????? ??????';
ماذا أفعل على مستوى الإعدادات الإقليمية ؟
كذلك، باستعمال هذه الطريقة لا يمكنني كتابة عنوان البرنامج بالعربية على شريط عنوان الواجهة الرئيسية للبرنامج ؟
إقتباس :للتخلص من مشكلة اللغة نهائيا استخدم Delphi2009 فما فوق.
و بالمناسبة، هل يمكن طرح أسئلة متعلقة بشقيق C++ Builder : Delphi ؟
مشكورين إخواني الجدد.
المشاركات : 1,252
المواضيع 170
:
: 1,500
الإنتساب : Jul 2009
السلام عليكم و رحمة الله و بركاته ،
أخي بعد الذهاب إلى الإعدادات الإقليمية قم بالتحديثات كما هو موضح في الصورة .
الله يفتح علينا و عليكم.
المشاركات : 2,293
المواضيع 157
:
: 81
الإنتساب : Dec 2008
إقتباس :عبد محاولة كتابة هذا الكود، أحصل على نقاط إستفهام :
كود:
Label1.Caption := '??? ???? ?????? ??????';
ماذا أفعل على مستوى الإعدادات الإقليمية ؟
كما قال أخونا Unprogramme جزاه الله كل خير.
إقتباس :باستعمال هذه الطريقة لا يمكنني كتابة عنوان البرنامج بالعربية على شريط عنوان الواجهة الرئيسية للبرنامج ؟
بل يمكن ذلك باستعمال نفس الطريقة:
كود :
procedure TForm1.FormCreate(Sender: TObject);
begin
Caption := 'بسم الله الرحمن الرحيم';
end;
بالتوفيق.
اللهم احقن دماء المسلمين، لا تنسوهم بالدعاء...