Вы можете воспользоваться вторым объектом TTable, подключенным к той же таблице, или можете вызвать метод объект TTable DisableControls, сделать изменения, и вызвать EnableControls. Для сохранения той же позиции вы можете попробовать воспользоваться закладкой. Например, так:
procedure TMyForm.MakeChanges; var aBookmark: TBookmark; begin Table1.DisableControls; aBookmark := Table.GetBookmark; try {ваш код} finally Table1.GotoBookmark(aBookmark); Table1.FreeBookmark(aBookmark); Table1.EnableControls; end; end; |
[001267]