Delphi - база знаний


Как остановить автодобавление из DBGrid?


Как остановить автодобавление из DBGrid?



Добавьте в событие "BeforeInsert" Вашего TTables следующие строки:

procedure TForm1.Tbable1BeforeInsert(DataSet: TDataset); 
begin 
  Abort; 
end

ИЛИ

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;

Взято с Исходников.ru



Начало  Назад  Вперед