Как остановить автодобавление из DBGrid?
Falk0ner, вс, 06/07/2008 - 15:34.
Добавьте в событие "BeforeInsert" Вашего TTables следующие строки:
procedure TForm1.Tbable1BeforeInsert(DataSet: TDataset);
begin
Abort;
end;
begin
Abort;
end;
ИЛИ
procedure TForm8.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = VK_DOWN) then
begin
TTable1.DisableControls ;
TTable1 ;
if TTable1.EOF then
Key := 0 else TTable1.Prior ;
TTable1.EnableControls ;
end ;
end;
Shift: TShiftState);
begin
if (Key = VK_DOWN) then
begin
TTable1.DisableControls ;
TTable1 ;
if TTable1.EOF then
Key := 0 else TTable1.Prior ;
TTable1.EnableControls ;
end ;
end;
Взято из http://forum.sources.ru
Отправить комментарий