03-09-2010, 05:51 PM
كيف يمكن كتابة رسالة عبر - ShowMessage () - MessageDlg() s تكون باللغة العربية
و اتجاها من اليمين للشمال , و تكون محتويات الرسالة باللغة العربية ,
و اتجاها من اليمين للشمال , و تكون محتويات الرسالة باللغة العربية ,
03-09-2010, 05:51 PM
03-09-2010, 06:06 PM
اخي الكريم مرحبا بك
هل تريد هكذا
بالتوفيق
هل تريد هكذا
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(' بسم الله الرحمن الرحيم'+#13+ 'السلام عليكم ورحمة الله وبركاته');
end;
end.
بالتوفيق
03-09-2010, 06:33 PM
اخي الكريم ,
abdelmalek
اقصد الرسالة كلها باللغة العربيةعنوان الرسالة و
الازرار باللغة العربية و اتجاه النص من اليمين الي اليسار
abdelmalek
اقصد الرسالة كلها باللغة العربيةعنوان الرسالة و
الازرار باللغة العربية و اتجاه النص من اليمين الي اليسار
03-09-2010, 10:15 PM
السلام عليكم
جرب:
إذا لم تعمل عندك أضف:
بخصوص الأزرار راجع:
http://www.delphi4arab.net/forum/showthr...p?tid=2210
بالتوفيق.
جرب:
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/showthr...p?tid=2210
بالتوفيق.
03-09-2010, 10:20 PM
السلام عليكم
زيادة لما تفضل به الأخ kachwahed
هذا مثال باستخدام أوامر ويندوز
الأمر: MessageBoxW
نمط الرسالة تعتمد على قيمة المعطيات التي تحدد، بالنسبة للإتجاه و إتجاه القراءة من اليمين استخدم القيم
MB_Right و
MB_RTLREADING
قيم نمط الرسالة يمكن الحصول عليها في الوحدة Windows
(باستخدام المفتاح CTRL ضع مؤشر الفأرة على القيمة في المحرر واتبع الرابط)
المثال باستخدام دلفي
زيادة لما تفضل به الأخ 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;
03-09-2010, 11:19 PM
تمت العملية بنجاح بارك الله فيجهودكم ,