+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يمكن كتابة رسائل تنبيه باللغة العربية (/showthread.php?tid=2373)
كيف يمكن كتابة رسائل تنبيه باللغة العربية - palunix - 03-09-2010
كيف يمكن كتابة رسالة عبر - ShowMessage () - MessageDlg() s تكون باللغة العربية
و اتجاها من اليمين للشمال , و تكون محتويات الرسالة باللغة العربية ,
كيف يمكن كتابة رسائل تنبيه باللغة العربية - abdelmalek - 03-09-2010
اخي الكريم مرحبا بك
هل تريد هكذا
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(' بسم الله الرحمن الرحيم'+#13+ 'السلام عليكم ورحمة الله وبركاته');
end;
end.
بالتوفيق
كيف يمكن كتابة رسائل تنبيه باللغة العربية - palunix - 03-09-2010
اخي الكريم ,
abdelmalek
اقصد الرسالة كلها باللغة العربيةعنوان الرسالة و
الازرار باللغة العربية و اتجاه النص من اليمين الي اليسار
كيف يمكن كتابة رسائل تنبيه باللغة العربية - kachwahed - 03-09-2010
السلام عليكم
جرب:
PHP كود :
MessageBoxW(Handle, 'السلام عليكم ورحمة الله', 'منتدى دلفي للعرب', MB_OK +
MB_ICONINFORMATION + WS_EX_NOINHERITLAYOUT);
كود :
// WS_EX_RIGHT or
// WS_EX_LAYOUTRTL or
// WS_EX_RTLREADING orhttp://www.delphi4arab.net/forum/showthread.php?tid=2210
بالتوفيق.
كيف يمكن كتابة رسائل تنبيه باللغة العربية - shagrouni - 03-09-2010
السلام عليكم
زيادة لما تفضل به الأخ 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 - 03-09-2010
تمت العملية بنجاح بارك الله فيجهودكم ,