delphi4arab منتديات دلفي للعرب

السلام عليكم

تخصيص MessageDlg

مساعدتي لاستخدام MessageDlg مع ثلاثة (03) أزرار بالـ DETAILLE, GROS, ABANDONNER) Caption)

الـ MessageDlg يغلق تلقائيا بعد بضع ثوان (يتم عرض ثانية في التسميةLABEL التي تظهر في الوقت الافتراضي إنقاص DECREMENTE)

عندما يصل الوقت عند 0 (النهاية) ينفذ أزرار نعم (CAPTION: DETAILLE) و MessageDlg تغلق تلقائيا

يمكنك ذلك عن طريق انشاء فورم جديد قم باضافة الازرار الثلاثة الخاصة بك صمم الفورم كما تشاء اجعله يبدو مثل 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; 

في حدث الضغط على الزر Gros

PHP كود :
procedure TForm2.GrosClick(Sender: TObject);
begin
  ModalResult := 200;
end; 

في حدث الضغط على الزر Abondonner

PHP كود :
procedure TForm2.AbondonnerClick(Sender: TObject);
begin
  ModalResult := 300;
end; 

بالتوفيق

delphi4arab منتديات دلفي للعرب

annabil23

S.FATEH