منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[مثال] تعريب أزرار صندوق الحوار - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة Delphi (http://vb4arb.com/vb/forumdisplay.php?fid=213)
+--- قسم : قسم أمثلة ومشاريع Delphi (http://vb4arb.com/vb/forumdisplay.php?fid=216)
+--- الموضوع : [مثال] تعريب أزرار صندوق الحوار (/showthread.php?tid=30482)



تعريب أزرار صندوق الحوار - abu ammar - 23-07-19

السلام عليكم ورحمة الله
مثال بسيط لتعريب أزرار صندوق الحوار Questiondlg  ، المثال طبقته في لازاروس
وهو لتأكيد حذف سجل

كود :
procedure TForm1.DeleteBtnClick(Sender: TObject);
begin
    if query1.RecordCount <> 0 then
      begin
            if QuestionDlg('تأكيد حذف','هل أنت متأكد من حذف هذا السجل?', mtCustom,[mrYes,'نعم',mrNo,'لا'],0)= mrYes then
             query1.Delete;
      end
   else
       showmessage('لا توجد سجلات اصلا لحذفها !')
end;  



RE: تعريب أزرار صندوق الحوار - viv - 26-07-19

معرفة الشئ مهم ولا ضير من عرض اي فكرة واي برمجة
كما يمكن استخدام هذه الطريقة

http://vb4arb.com/vb/showthread.php?tid=30515