24-12-2009, 03:03 PM
الصفحات : 1 2
24-12-2009, 03:24 PM
وعليكم السلام و رحمة الله وبركاته
في الحقيقة ليس لدي اجابة لسؤالك لكن يمكنك استعمال Messagebox فهي تتبع لغة النظام عكس MessageDlg التي تتبع لغة بيئة التطوير.
في الحقيقة ليس لدي اجابة لسؤالك لكن يمكنك استعمال Messagebox فهي تتبع لغة النظام عكس MessageDlg التي تتبع لغة بيئة التطوير.
24-12-2009, 04:23 PM
galag8 كتب :كيف يمكني ان اجعل الازرار في الMessageDlg تظهر باللغه العربيه وبارك الله فيكم
هناك ملفين Consts.pas و SysConst.pas
قم بتعريبهما كما تشاء
ثم Compile واستبدلهما
بالتوفيق
24-12-2009, 05:42 PM
إقتباس :في الحقيقة ليس لدي اجابة لسؤالك لكن يمكنك استعمال 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;
بالتوفيق.
25-12-2009, 06:34 AM
هل لي ان اعلم اين اضع ه>ا الكود بالضبط
25-12-2009, 08:05 AM
المثال مرفق، بالتوفيق.
25-12-2009, 11:49 AM
شكرا على التوضيح وبارك الله فيك
25-12-2009, 02:02 PM
مثالك يامشرفنا العزيز kachwahed لايعمل معي
![[صورة: 012jwmqf25.jpg]](http://sub3.rofof.com/img3/012jwmqf25.jpg)
![[صورة: 012kepui25.jpg]](http://sub3.rofof.com/img3/012kepui25.jpg)
وشكرا
وشكرا
25-12-2009, 02:08 PM
إقتباس :مثالك يامشرفنا العزيز kachwahed لايعمل معياحذف السطر بالكامل,
PHP كود :
Application.MainFormOnTaskbar := True;
والسلام عليكم
25-12-2009, 02:40 PM
شكراً لك يامبرمجنا العزيز
وجزاكم الله خير
وعليكم السلام
وجزاكم الله خير
وعليكم السلام
الصفحات : 1 2