Mega Code Archive

 

Categories / Delphi / VCL

 

Dbgride kayit eklemeyi önleme

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;