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

Previous  Top  Next

    
 

 

 

Code:

procedure TMyForm.MakeChanges;

var

aBookmark: TBookmark;

begin

Table1.DisableControls;

aBookmark := Table.GetBookmark;

try

   {ваш код}

finally

   Table1.GotoBookmark(aBookmark);

   Table1.FreeBookmark(aBookmark);

   Table1.EnableControls;

end;

end

 

©Drkb::02640

       

Взято с http://delphiworld.narod.ru