Внести изменения в набор данных и не потерять текушей позиции

Внести изменения в набор данных и не потерять текушей позиции

procedure TMyForm.MakeChanges;
var
 aBookmark: TBookmark;
begin
 Table1.DisableControls;
 aBookmark := Table.GetBookmark;
 try
  {ваш код}
 finally
  Table1.GotoBookmark(aBookmark);
  Table1.FreeBookmark(aBookmark);
  Table1.EnableControls;
 end;
end;

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...