ايقاف عملية اضافة سجل ال قاعدة البيانات

سلام

عندما تستخدم DBGrid فانك تستطيع ان تضيف تعدل اى قيمة في سجل , لكن لو اردت ان تمنع عملية اضافة سجل عندما تكون على اخر سجل في DBGrid ودللك عند الضغط على مفتاح النزول Down .

اوضح اكتر .

لو كنت في اخر سجل في DBGrid و قمت بالضغط لى مفتاح النزول Down فانه تلقائيا يتم اضافة سجل عند نهاية DBGrid ,

, لو اردنا منع هذه العملية

في الحدت KeyDown لل DBGrid ضع

procedure TTelLinesF.DBGrid1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if( key = VK_Down ) or (Key = 9) then

DBGrid1.ReadOnly := true

else

begin

DBGrid1.ReadOnly := false

end;

end;