Избавить TDBGrid от автоматического добавления новой записиDelphi , Компоненты и Классы , TDBGridИзбавить TDBGrid от автоматического добавления новой записи
Оформил: DeeCo {How to stop the dbgrid control from auto-appending a new entry when you move down after the last record in a table. It creates a new blank line / record in the table. Can this be stopped?} {A: Add to your TTables's "BeforeInsert" event the following line:} procedure TForm1.Tbable1BeforeInsert(DataSet: TDataSet); begin Abort; {<<---this line} end; {A: It traps the down key and checks for end-of-file.} procedure TForm8.DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Key = VK_DOWN) then begin TTable1.DisableControls; TTable1Next; if TTable1.EOF then Key := 0 else TTable1.Prior; TTable1.EnableControls; end; end; Статья Избавить TDBGrid от автоматического добавления новой записи раздела Компоненты и Классы TDBGrid может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |