[abu ammar]

السلام عليكم  يسعدني المشاركة بشرح برمجة أزرار المكون  DBnavigator :
المكون  DBnavigator  يستخدم في التنقل بين سجلات قواعد البيانات و اجراء عمليات 
الاضافة والتعديل والحذف والحفظ والالغاء والتحديث لسجلات قاعدة البيانات دون تدخل من المبرمج
يأخد اسم برمجي يبدأ بـ  nb  r  قمثلا زر الحفظ  nbpost
قد يحتاج المبرمج تعديل برمجة زر من هذه الأزرار  وهذا مثال على ذلك :

في حدث النقر على المكون :

كود :

procedure TForm1.DBNavigator1Click(Sender: TObject;
 Button: TDBNavButtonType);
begin
 if Button = nbDelete then
   showmessage('you are about to delete this record');
 end;
end;