Внести изменения в набор данных и не потерять текушей позиции
Материал из 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