عمل check للعنصر من النوع Tedit

بسم الله الرحمن الرحيم

أولا لكي تعرف ماإذا كانت Tedit تم تغيير محتوياتها أم لا فهاك الطريقة

If Edit1.modified then

if messageDlg('لقد تم تغيير البيانات هل أنت متأكد من الخروج',mtWarning,[mbYes,mbNo],0)=myNo then Exit;

هذه طريقة بسيطة

وهناك طريقة أعقد لتعرف إي من المكونات تم التغيير فيه لأنك ربما تستخدم مجموعة كبيرة من Tedit

for i = 0 to componentCount -1 do

if components is Tedit then

if (components As Tedit).modified then if messageDlg('لقد تم تغيير البيانات هل أنت متأكد من الخروج',mtWarning,[mbYes,mbNo],0)=myNo then Exit;

الرجاء التأكد من كلمة Component فإذا ظهر عليها خطأ فأكتب بدلها Components لأنني لست موجودا في البيت لحظة كتابة هذا الرد