اظهار الازرار في ال MessageDlg باللغه العربيه

اظهار الازرار في ال MessageDlg باللغه العربيه - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : اظهار الازرار في ال MessageDlg باللغه العربيه (/showthread.php?tid=1431)

الصفحات: 1 2

اظهار الازرار في ال MessageDlg باللغه العربيه - galag8 - 24-12-2009

بسم الله الرحمن الرحيم
السلام عليكم
كيف يمكني ان اجعل الازرار في الMessageDlg تظهر باللغه العربيه وبارك الله فيكم

اظهار الازرار في ال MessageDlg باللغه العربيه - I_Tiger - 24-12-2009

وعليكم السلام و رحمة الله وبركاته

في الحقيقة ليس لدي اجابة لسؤالك لكن يمكنك استعمال Messagebox فهي تتبع لغة النظام عكس MessageDlg التي تتبع لغة بيئة التطوير.

اظهار الازرار في ال MessageDlg باللغه العربيه - محمد عبد العزيز - 24-12-2009

galag8 كتب :كيف يمكني ان اجعل الازرار في الMessageDlg تظهر باللغه العربيه وبارك الله فيكم

هناك ملفين Consts.pas و SysConst.pas
قم بتعريبهما كما تشاء
ثم Compile واستبدلهما
بالتوفيق

اظهار الازرار في ال MessageDlg باللغه العربيه - kachwahed - 24-12-2009

إقتباس :في الحقيقة ليس لدي اجابة لسؤالك لكن يمكنك استعمال Messagebox فهي تتبع لغة النظام عكس MessageDlg التي تتبع لغة بيئة التطوير.

علبة الحوار تتبع النظام (Theme) وكذلك شكلها وشكل الأزرار...، أما النصوص فهي كثوابت في الملفات المصدرية للديلفي، تجدها حيث ذكر الأستاذ حفظ الله.
ويمكن تغييرها بمثل هذه الدالة:

PHP كود :
function MyMessageDialog(const Msg: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons; Captions: array of string): Integer;
var
  aMsgDlg: TForm;
  i: Integer;
  dlgButton: TButton;
  CaptionIndex: Integer;
begin
  { Create the Dialog }
  aMsgDlg := CreateMessageDialog(Msg, DlgType, Buttons);
  captionIndex := 0;
  { Loop through Objects in Dialog }
  for i := 0 to aMsgDlg.ComponentCount - 1 do
  begin
   { If the object is of type TButton, then }
    if (aMsgDlg.Components[i] is TButton) then
    begin
      dlgButton := TButton(aMsgDlg.Components[i]);
      if CaptionIndex > High(Captions) then Break;
      { Give a new caption from our Captions array}
       dlgButton.Caption := Captions[CaptionIndex];
      Inc(CaptionIndex);
    end;
  end;
  Result := aMsgDlg.ShowModal;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if MyMessageDialog('How much...?', mtConfirmation, mbOKCancel,
    ['1', '2']) = mrOk then
    ShowMessage('"1" clicked')
  else
    ShowMessage('"2" clicked');
end; 

أظن أن هناك مكون (للأستاذ عروة) يقوم بذلك.
بالتوفيق.

اظهار الازرار في ال MessageDlg باللغه العربيه - gigi - 25-12-2009

هل لي ان اعلم اين اضع ه>ا الكود بالضبط

اظهار الازرار في ال MessageDlg باللغه العربيه - kachwahed - 25-12-2009

المثال مرفق، بالتوفيق.

اظهار الازرار في ال MessageDlg باللغه العربيه - gigi - 25-12-2009

شكرا على التوضيح وبارك الله فيك

اظهار الازرار في ال MessageDlg باللغه العربيه - قديم الشوق - 25-12-2009

مثالك يامشرفنا العزيز kachwahed لايعمل معي

[صورة: 012jwmqf25.jpg]

وشكرا

اظهار الازرار في ال MessageDlg باللغه العربيه - AL-MOB4RM3G - 25-12-2009

إقتباس :مثالك يامشرفنا العزيز kachwahed لايعمل معي

احذف السطر بالكامل,

PHP كود :
Application.MainFormOnTaskbar := True; 

والسلام عليكم

اظهار الازرار في ال MessageDlg باللغه العربيه - قديم الشوق - 25-12-2009

شكراً لك يامبرمجنا العزيز
وجزاكم الله خير
وعليكم السلام