تخصيص messageDLG

[annabil23]

السلام عليكم

تخصيص MessageDlg

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

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

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

[S.FATEH]

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


بالتوفيق