+- 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=6290)
تخصيص messageDLG - annabil23 - 06-07-2014
السلام عليكم
تخصيص MessageDlg
مساعدتي لاستخدام MessageDlg مع ثلاثة (03) أزرار بالـ DETAILLE, GROS, ABANDONNER) Caption)
الـ MessageDlg يغلق تلقائيا بعد بضع ثوان (يتم عرض ثانية في التسميةLABEL التي تظهر في الوقت الافتراضي إنقاص DECREMENTE)
عندما يصل الوقت عند 0 (النهاية) ينفذ أزرار نعم (CAPTION: DETAILLE) و MessageDlg تغلق تلقائيا
تخصيص messageDLG - S.FATEH - 09-07-2014
يمكنك ذلك عن طريق انشاء فورم جديد قم باضافة الازرار الثلاثة الخاصة بك صمم الفورم كما تشاء اجعله يبدو مثل MessagDlg اذا اردت
عند استدعائه استخدم الدالة ShowModal الدالة ShowModal ستقوم باضهار الفورم الثاني و لن تنفذ باقي الكود الى غاية اعادة الدالة Result الذي هو عبارة عن Integer لن يتم اعادة الناتج الى غاية اغلاق الفورم الفورم يتم اغلاقه تلقائيا اذا تم اسناد ModalResult لقيمة تخالف 0 التي هي قيمة محجوزة للثابت mrNone ...
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
case Form2.ShowModal of
100:ShowMessage('Button Detaill Clicked');
200:ShowMessage('Button Gros Clicked');
300:ShowMessage('Button Abondoner Clicked');
end;
end;
في حدث الضغط على الزر Detaill تقوم بتغيير في ناتج الدالة ...
PHP كود :
procedure TForm2.DetaillClick(Sender: TObject);
begin
ModalResult := 100;
end;
PHP كود :
procedure TForm2.GrosClick(Sender: TObject);
begin
ModalResult := 200;
end;
PHP كود :
procedure TForm2.AbondonnerClick(Sender: TObject);
begin
ModalResult := 300;
end;
بالتوفيق