Поддержка / Donate Благодарю за поддержку! Новости сайта Новости форума Архив исходников Automatic translation
Поддержка / Donate
Благодарю за поддержку!
Архив исходников
Automatic translation
Delphi FAQ - Часто задаваемые вопросы | Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа || ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |
procedure TMyForm.MakeChanges; var aBookmark: TBookmark; begin Table1.DisableControls; aBookmark := Table.GetBookmark; try {ваш код} finally Table1.GotoBookmark(aBookmark); Table1.FreeBookmark(aBookmark); Table1.EnableControls; end; end;