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

[palunix]

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

[abdelmalek]

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

هل تريد هكذا

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

end.


بالتوفيق

[palunix]

اخي الكريم ,
abdelmalek


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

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

[kachwahed]

السلام عليكم
جرب:
MessageBoxW(Handle, 'السلام عليكم ورحمة الله', 'منتدى دلفي للعرب', MB_OK +
MB_ICONINFORMATION + WS_EX_NOINHERITLAYOUT);
إذا لم تعمل عندك أضف:
// WS_EX_RIGHT or
// WS_EX_LAYOUTRTL or
// WS_EX_RTLREADING or
بخصوص الأزرار راجع:
http://www.delphi4arab.com/forum/showthread.php?t=2210
بالتوفيق.

[shagrouni]

السلام عليكم

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

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

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

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

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


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]

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