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

Материал из DRKB

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

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


ID: 02435
ID: 02640