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

[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;