الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تغيير مسميات ازرار نافذة احضار ملف

مغلق
بدأه vb-delphi في 16 فبراير 2005 · 5 رد · 637 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

شاهدت موضوع سابق كان فيه مجموعة اكواد وافكار

ومن ضمن الاكواد هذي كود يقوم بتغيير مسميات الازرار لنافذة اختيار ملف

من الانجليزي للعربي

لكن الكود ماكان يعمل بشكل صحيح او فيه خطأ وهذا هو الكود

SendMessage(GetParent(O.Handle), CDM_SETCONTROLTEXT, 1,Integer(PChar('ÝÊÍ')));
 { Change "Cancel" Button Caption }
 SendMessage(GetParent(O.Handle), CDM_SETCONTROLTEXT, 2,Integer(PChar('ÅáÛÇÁ ÇáÃãÑ')));

هذا اولا وثانيا

اتمنى لو الاقي طريقه اعرف منها هل اللغه المستخدمه حاليا في شريط المهام

عربي او انجليزي A OR E

وشكراااا

#2

افتح برنامج جديد في دلفي واتبع الخطوات التالية

1. ضع كمبوننت OpenDialog على الفورم

2. ضع ComDlg في Uses في اعلى البرنامج

3. ضع زر

4. في كمبوننت OpenDialog حدث OnShow ضع الكود التالي:

  const
    LB_FILETYPES_ID = 1089;
    LB_FILENAME_ID = 1090;
    LB_DRIVES_ID = 1091;
    Str1 = 'اربعة';
    Str2 = 'خمسة';
    Str3 = 'واحد';
    Str4 = 'اثنين';
    Str5 = 'ثلاثة';
  begin

    SendMessage(GetParent(OpenDialog1.Handle), CDM_SETCONTROLTEXT,
      IDOK, LongInt(Pchar(Str1)));
    SendMessage(GetParent(OpenDialog1.Handle), CDM_SETCONTROLTEXT,
      IDCANCEL, LongInt(Pchar(Str2)));
    SendMessage(GetParent(OpenDialog1.Handle), CDM_SETCONTROLTEXT,
      LB_FILETYPES_ID, LongInt(Pchar(Str3)));
    SendMessage(GetParent(OpenDialog1.Handle), CDM_SETCONTROLTEXT,
      LB_FILENAME_ID, LongInt(Pchar(Str4)));
    SendMessage(GetParent(OpenDialog1.Handle), CDM_SETCONTROLTEXT,
      LB_DRIVES_ID, LongInt(Pchar(Str5)));

لا تنسى ان هناك Const قبل ال Begin في الكود السابق

5. في كود OnClick للزر ضع 

OpenDialog1.Execute;

الجواب الثاني قادم

عندما تريد أن تتعلم جافا بالفيديو إليك قنوات الYouTube الخاصة بقسم الحاسب الآلي

أ. فاضل خداده

أ. عبدالعزيز الرومي

أ. وحيد الساير

(وَمَا أُوتِيتُمْ مِنْ الْعِلْمِ إِلاَّ قَلِيلاً) [سورة الإسراء: الآية 85]

#3

بعد الكثير من البحث اليك الجواب الثاني:

افتح برنامج جديد

1. ضع زر وافتح حدث الضغط OnClick

2. ضع التالي في المتغيرات

var
  CurLayout: string;
  KeyBrd: Array [0..KL_NAMELENGTH] of Char;

والتالي في الاوامر

   GetKeyboardLayoutName(Keybrd);
   CurLayout := Copy(KeyBrd,5,4); 
   if CurLayout = '0409' then
      ShowMessage('English')
   Else
      if CurLayout  = '0401' then
          ShowMessage('Arabic');

عندما تريد أن تتعلم جافا بالفيديو إليك قنوات الYouTube الخاصة بقسم الحاسب الآلي

أ. فاضل خداده

أ. عبدالعزيز الرومي

أ. وحيد الساير

(وَمَا أُوتِيتُمْ مِنْ الْعِلْمِ إِلاَّ قَلِيلاً) [سورة الإسراء: الآية 85]

#4

يعطيك ألف عافيه أخوي وحيد_الساير

مشكور وماتقصر

راح اجرب الاكواد

لكن عندي سؤال بسيط عن السؤال الثاني

انت تعرف انه الويندوز فيه لغات عربيه متنوعه /سعوديه/كويتيه/..../

هل الكود راح يتعرف على الانواع هذي كلها او بس لغه محدده

يعني مثلا لو كانت اللغه مثبته على العربيه السعوديه

نتوقع انه راح يعطي مسج (اللغه عربيه)

لكن لو كانت العربيه الكويتيه مثلا نفس الشي راح يصير ؟ او كيف

#5

يعطيك ألف عافيه أخوي وحيد_الساير

مشكور وماتقصر

راح اجرب الاكواد

لكن عندي سؤال بسيط عن السؤال الثاني

انت تعرف انه الويندوز فيه لغات عربيه متنوعه /سعوديه/كويتيه/..../

هل الكود راح يتعرف على الانواع هذي كلها او بس لغه محدده

يعني مثلا لو كانت اللغه مثبته على العربيه السعوديه

نتوقع انه راح يعطي مسج (اللغه عربيه)

لكن لو كانت العربيه الكويتيه مثلا نفس الشي راح يصير ؟ او كيف

#6

اعتقد انه سيتعرف على العربية في اي بلد لأن الرقم الذي يريده هو 401 لكن تفرعات اللغة تأتي قبل ذلك الرقم. حاول تشغيله الكود على جهازك ثم غير اللغة (مع ازالة اللغة العربية الاخرى).

عندما تريد أن تتعلم جافا بالفيديو إليك قنوات الYouTube الخاصة بقسم الحاسب الآلي

أ. فاضل خداده

أ. عبدالعزيز الرومي

أ. وحيد الساير

(وَمَا أُوتِيتُمْ مِنْ الْعِلْمِ إِلاَّ قَلِيلاً) [سورة الإسراء: الآية 85]

هذا الموضوع مغلق.

مواضيع مشابهة