Как остановить автодобавление из 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;
|
|
|
|
|
купить infiniti . Сила Императора! Оригинал: Центр Здоровье нации. Поиск работы по объявлениям. . грузовые автозапчасти, продажа запчасти . Цементный Портал: куплю бетон. . |
