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

[galag8]

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

[I_Tiger]

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

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

[محمد عبد العزيز]

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

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

[kachwahed]

في الحقيقة ليس لدي اجابة لسؤالك لكن يمكنك استعمال 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; 


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

[gigi]

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

[kachwahed]

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

[gigi]

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

[قديم الشوق]

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





وشكرا

[AL-MOB4RM3G]

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

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

PHP كود :

Application.MainFormOnTaskbar := True; 


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

[قديم الشوق]

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