последовательный поиск по базе

[Stilet]

но надо отключить визуальный эффект поиска по базе

А в чем он выражается?

[ArtInt]

Попробуй так:
Сначала отключаешь визуальный эффект на сетке
Query_list.DisableControls;
показываваешь модальную форму с сообщением "Идет поиск"
Потом выполняешь поиск
Потом в конце пишешь закрытие данной модальной формы.
И делаешь Query_list.EnableControls;

[bosston]

но надо отключить визуальный эффект поиска по базе

А в чем он выражается?

в таблице(grid) бежит строка по полям до конца базы

[Serge_Bliznykov]

в таблице(grid) бежит строка по полям до конца базы

сделай так, как описал ArtInt в пост #12

[bosston]

Потом выполняешь поиск

эту процедуру прописывать в основной форме или вызываемой?

[bosston]

вот модуль, где вставить?

If ab_nomer_find = '' then
begin
ShowMessage('Вы не ввели номер для поиска!');
exit;
end;
RecordNumber := Query_list.RecNo;
Query_list.Locate('Id_avto', CurrentID,[]);
Query_list.Next;
while not Query_list.Eof do
begin
//Query_list.DisableControls;
if Query_list.FieldByName('Id_klient') .AsString = ab_nomer_find then //достаточно совпадения первых букв
begin
CurrentID := Query_list.FieldByName('Id_avto').A sInteger;
Query_list.Locate('Id_avto', CurrentID, []);
if Panel_os.ActivePageIndex = 0 then
DBGrid1.SetFocus;
Query_list.EnableControls;
Exit;
end;
Query_list.Next;
end;
//если уже конец таблицы
if Query_list.Eof then
begin
Beep;
ShowMessage('Поиск окончен');
Query_list.Locate('Id_avto', CurrentID, []);
if Panel_os.ActivePageIndex = 0 then
DBGrid1.SetFocus;
ab_nomer_find:= '';
end;
Query_list.RecNo:= RecordNumber;

в этой ситуации все работает как надо, и курсор возврацается на ту позицию с которой начался поиск, и после поиска доступ к таблице есть,
а если я вставляю отключение эффектов, а потом включаю после установки текущей записи, доступ к гриду закрыт

[ArtInt]

Есть несколько замечаний по реализации:
1. Как заметил, для поиска делаешь цикл. Не очень хороший вариант, так лучше через SQL запрос или фильтр, при большом количестве записей быстрее будет.
2. Query_list.DisableControls желательно располагать до начала цикла, а Query_list.EnableControls после окончания цикла.
3. Можно ShowMessage заменить просто на форму и вызывать как модальную MyForm.ShowModal;
4. Запоминание записи можно сделать через закладку Bookmark. Но это необязательно.

[bosston]

1. Как заметил, для поиска делаешь цикл. Не очень хороший вариант, так лучше через SQL запрос или фильтр, при большом количестве записей быстрее будет.

мне и нужен перебор всех записей, и циклически переходить от первой удовлетворяющей условию до последней.

[bosston]

поиск сделал, спасибо всем за подсказки.
а теперь хочу, чтобы во время цикла появлялось окно с сообщением, но цикл не прерывался, а то у меня при появлении модального окна цикл останавливается до тех пор, пока не закрою это окно.

[ArtInt]

Тут наверное придется делать через потоки и включить там синхронизацию, во всяком случае так делал для вывода в progressbar текущего состояния выполненной работы, а в это время например выполнялось считывание всех отобранных записей и запись их в документ.