كيف يمكن كتابة رسائل تنبيه باللغة العربية

[palunix]

كيف يمكن كتابة رسالة عبر - ShowMessage () - MessageDlg() s تكون باللغة العربية
و اتجاها من اليمين للشمال , و تكون محتويات الرسالة باللغة العربية ,

[abdelmalek]

اخي الكريم مرحبا بك

هل تريد هكذا

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
   ShowMessage('            بسم الله الرحمن الرحيم'+#13+ 'السلام عليكم ورحمة الله وبركاته');
end;

end. 


بالتوفيق

[palunix]

اخي الكريم ,
abdelmalek


اقصد الرسالة كلها باللغة العربيةعنوان الرسالة و

الازرار باللغة العربية و اتجاه النص من اليمين الي اليسار

[kachwahed]

السلام عليكم
جرب:

PHP كود :

MessageBoxW(Handle, 'السلام عليكم ورحمة الله', 'منتدى دلفي للعرب', MB_OK +
    MB_ICONINFORMATION + WS_EX_NOINHERITLAYOUT); 


إذا لم تعمل عندك أضف:

كود :

// WS_EX_RIGHT or // WS_EX_LAYOUTRTL or // WS_EX_RTLREADING or

بخصوص الأزرار راجع:
http://www.delphi4arab.net/forum/showthr...p?tid=2210
بالتوفيق.

[shagrouni]

السلام عليكم

زيادة لما تفضل به الأخ kachwahed

هذا مثال باستخدام أوامر ويندوز
الأمر: MessageBoxW

نمط الرسالة تعتمد على قيمة المعطيات التي تحدد، بالنسبة للإتجاه و إتجاه القراءة من اليمين استخدم القيم
MB_Right و
MB_RTLREADING

قيم نمط الرسالة يمكن الحصول عليها في الوحدة Windows
(باستخدام المفتاح CTRL ضع مؤشر الفأرة على القيمة في المحرر واتبع الرابط)

المثال باستخدام دلفي

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
var
  result: integer;
  sTitle, sMsg: widestring;
  iType: integer;
begin
  sTitle := 'تجربة !!';
  sMsg := 'مرحبا !! هذه تجربة لرسالة.';

  iType := //MB_ICONINFORMATION +
           MB_YESNOCANCEL +
           MB_ICONQUESTION +
           MB_Right +
           MB_RTLREADING;

  result := MessageBoxW(Handle, PWideChar(sMsg), PWideChar(sTitle), iType);
  case result of
    IDCANCEL :
      begin
        MessageBoxW(Handle, 'Cancel', 'Test Result', MB_ICONINFORMATION);
      end;
    IDYES :
      begin
        MessageBoxW(Handle, 'Yes', 'Test Result', MB_ICONINFORMATION);
      end;
    IDNO :
      begin
        MessageBoxW(Handle, 'لقد تم الضغط على الزر لا.', 'نتيجة الاختبار', MB_ICONINFORMATION +
                                                 MB_Right +
                                                 MB_RTLREADING);
      end;
  end;

end; 


[palunix]

تمت العملية بنجاح بارك الله فيجهودكم ,