[abu ammar]

السلام عليكم ورحمة الله

مثال بسيط لتعريب أزرار صندوق الحوار 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;