DBGRID'e kayit eklenmesini önleme
'DBGRID nesnesi kullandiginizda kullanici en alt satira gelip asagi
oka bastigi gibi yeni bir satir olusturulur ve kullanici bu yolla yeni
bir kayit girebilir. Bazi durumlarda bu sekilde kayitlarin girilmesini istemeyebilirsiniz.
Nesnenizin adinin DBGrid1 oldugunu düsünerek bu nesnenin
OnKeyDown event'ine asagidaki procedure'ü girerek bu istenmeyen durumdan kurtulabilirsiniz.
procedure TForm1.DBGrid1KeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
if (Key = VK_DOWN) then
begin
Table1.DisableControls;
Table1.Next;
if Table1.EOF then Key:= 0
else Table1.Prior;
Table1.EnableControls;
end;
end;