Условие Locate при активации формы

[ArtInt]

В целома задача такая: При активации формы 2 в ней прописан вызов процедуры ProvSovpad для внесения в поле Check 0 или 1 (по этому полю происходит изменение цвета строки в DBGrid).
Процедура ProvSovpad рабочая если разместить на нажатие кнопки. Но в при активации формы (в ней не выполняется метод Locate).
Код примерно такой:

procedure TFinfoDobav.ProvSovpad;
var
  i: Integer;
begin
  if not cyDBGrid1.CheckBoxes.Visible then
    cyDBGrid1.CheckBoxes.Visible := true;
 }
{выделяем другим цветом и изменяем check на 1 файлы уже содержащиеся в базе по пути и названию файла}
  Screen.Cursor:=crHourGlass;
  Form1.AdoQuery1.First;
  Form1.ADOTablevrem.First;

  for I := 0 to Form1.ADOTablevrem.RecordCount-1 do    // Iterate
  begin


 if Form1.ADOQuery1.Locate('KodPath, Realname',VarArrayOf([Form1.ADOTablevrem.FieldByName('KodPath').AsString, Form1.ADOTablevrem.FieldByName('realnamevrem').AsString]),[loCaseInsensitive, loPartialKey])=false  then
     begin
      Form1.ADOTablevrem.Edit;
      Form1.ADOTablevrem.FieldByName('check').AsInteger:=1;
      Form1.ADOTablevrem.Post;
     end;


     Form1.ADOTablevrem.Next;

  end;    // for
  Form1.ADOTablevrem.First;
  Screen.Cursor:=crDefault;


end;

для закрашивания строки

procedure TFInfoDobav.cyDBGrid1DrawDataCell(Sender: TObject;
  const Rect: TRect; Field: TField; State: TGridDrawState);
var
   P, P1: array [0..1023] of Char; { MemoField buffer }
   BS, BS1:TADOBlobStream;
   S, S1: string;
   holdColor: TColor;
begin
  holdColor := cyDBGrid1.Canvas.Brush.Color; {сохраняем оригинальный цвет}
  {"раскрашиваем" ячейки только для поля check}
    if Form1.ADOtablevrem.FieldByName('check').asinteger=1 then
    begin
//      cyDBGrid1.Canvas.Brush.Color := clGreen;
      cyDBGrid1.Canvas.Brush.Color := $fa9c78; {синеватый оттенок}
      cydbGrid1.DefaultDrawDataCell(Rect,Field,State);
      cyDBGrid1.Canvas.Brush.Color := holdColor;
    end;

код активации формы

procedure TFInfoDobav.FormActivate(Sender: TObject);
var
  i: Integer;
begin

  cyDbGrid1.Visible:=false;
  suiPanel1.Visible:=false;

{работа потока}
{другие вычисления}  
  FinfoDobav.suiPanel1.Visible:=true;
  FinfoDobav.cyDBGrid1.Visible:=true;
  ProvSovpad;
end;

Вопрос: Как при активации сделать чтобы происходили операции с таблицей?

[koma_grusha]

а ты проверял, попадаешь ли ты в FormActivate, и когда попадаешь? может где то встречается выход из процедуры до ProvSovpad?

[ArtInt]

В конце процедуры прописывал showmessage(''). Оно выводилось. И используется она один раз, только при активации формы.

[koma_grusha]

может заполнение запросов происходит после активации, соответсвенно при активации он гуляет по пустоте?

[Stilet]

if Form1.ADOtablevrem.FieldByName('che ck').asinteger=1 then

Замени это на

if (Field.DisplayName='check')and(Field.asinteger=1) then

и не парься с поиском.

[ArtInt]

Спасибо Stilet за подсказку, но это относится к сетке, а проблема возникает именно в процедуре ProvSovpad, потому что по условию должно проходить занесение 1 в поле check, а этого не происходит.
И как уже было сказано, все работает, но только не при активации формы.

[ArtInt]

Нашел как исправить данную ошибку.

procedure TFInfoDobav.FormActivate(Sender: TObject);
var
  i: Integer;
begin

  cyDbGrid1.Visible:=false;
  suiPanel1.Visible:=false;

{работа потока}
Application.ProcessMessages;
{другие вычисления}  
  FinfoDobav.suiPanel1.Visible:=true;
  FinfoDobav.cyDBGrid1.Visible:=true;
  ProvSovpad;
end;

необходимо было поставить Application.ProcessMessages;возможн о потому что поток использовал таблицы и не успел закончить до конца работу с ними.
Тему можно считать закрытой.