ouali
مدير منتدى المسيلة
الجزائر : 
 عدد الرسائل : 2373
 تاريخ الميلاد : 24/12/1982
العمر : 41
الموقع : http://msila.sd.ma
المزاج : الحمد لله
الدولة : الجزائر
نقاط : 67664
تقييم الاعضاء لك : 56
تاريخ التسجيل : 30/08/2007
 |  موضوع: كيف تعرب الصناديق (Dialogs) الأساسية في دلفي الجمعة يونيو 13, 2008 11:56 am | |
| نأخذ مثلاً على ذلك OpenDialog كل ما عليك هو كتابة شيفرة الحدث OnShow للصندوق وتقوم باستعمال التابع SetDlgItemText من أجل اسناد قيم جديدة للأزرار لنأخذ مثال عملي في دلفي عبارة عن نموذج (Form) و (1OpenDialog) ونغير الحدث OnShow ليصبح procedure TForm1.OpenDialog1Show(Sender: TObject);
begin
{"OPEN" - > "فتح"}
SetDlgItemText (GetParent (OpenDialog1.Handle), IDOK, PChar ('&فتح')) ;
{"Cancel" - > "&إلغاء الأمر"}
SetDlgItemText (GetParent (OpenDialog1.Handle),IDCANCEL, PChar ('&إلغاء الأمر'))
End;
الكود:
- الكود:
-
procedure TForm1.OpenDialog1Show(Sender: TObject);
[font='Times New Roman']begin
{"OPEN" - > "فتح"}
SetDlgItemText (GetParent (OpenDialog1.Handle), IDOK, PChar ('&فتح')) ;
[font='Times New Roman']{"Cancel" - > "&إلغاء الأمر"}
[font='Times New Roman']SetDlgItemText (GetParent (OpenDialog1.Handle),IDCANCEL, PChar ('&إلغاء الأمر'))
End;
[/font][/font][/font]
| |
|
smain
عدد الرسائل : 2
تاريخ الميلاد : 14/05/1958
العمر : 66
نقاط : 33472
تقييم الاعضاء لك : 10
تاريخ التسجيل : 24/09/2015
| | موضوع: رد: كيف تعرب الصناديق (Dialogs) الأساسية في دلفي السبت سبتمبر 26, 2015 11:07 pm | |
| مهلا سيدي لماذا هذا العناء كله هناك مكون بالعربية Arabadialog وبلغة دلفي يسهل المهمة دون عنــاء شكرا | |
|
