23-07-19, 10:41 PM
السلام عليكم ورحمة الله
مثال بسيط لتعريب أزرار صندوق الحوار 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; 