Внести изменения в набор данных и не потерять текушей позиции procedure TMyForm.MakeChanges; var aBookmark: TBookmark; begin Table1.DisableControls; aBookmark := Table.GetBookmark; try {ваш код} finally Table1.GotoBookmark(aBookmark); Table1.FreeBookmark(aBookmark); Table1.EnableControls; end; end; Copyright © "DELPHI WORLD" E-mail: delphiworld@mail.ru http://www.delphiworld.narod.ru Источник получения информации: http://www.delphiworld.narod.ru
procedure TMyForm.MakeChanges; var aBookmark: TBookmark; begin Table1.DisableControls; aBookmark := Table.GetBookmark; try {ваш код} finally Table1.GotoBookmark(aBookmark); Table1.FreeBookmark(aBookmark); Table1.EnableControls; end; end;