Не правильный порядок действий при выполнении программы...

[Kronos913]

Есть вот такой вот код

    form3.Color:=cllime;

    for i:=0 to klv-1 do begin
     If (f3CheckBox[i].Checked) then begin
      MoveFile(PChar(str1[i]), PChar(str2[i]));
     end;
    end;
 
    form3.Color:=clBtnFace;

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

Почему оно не подсвечивает сразу зеленым, перед перемещением файлов?
И как это исправить?

При чем, подобные сбои наблюдались и в других местах программы

[Kronos913]

Операционная система - 10ка
Delphi 7

p.s. Замечал, что у одной и той же программы бывает разное исполнение на 10 и ХРюше
Например, если поставить два таймера, один каждые 1000 мс прибавляет 1000 к одной переменной, а второй каждые 10 мс добавляет 10 к другой, то вот что выходит

На ХР таймеры будут параллельно работать, и показатели переменных будут примерно равны
А вот на 10ке таймер с 1000 будет раза в два быстрее прибавлять

[FrosyaZZ]

Сообщение от Kronos913

Почему оно не подсвечивает сразу зеленым, перед перемещением файлов?

Потому что обработка сообщение формы (в частности отрисовка) идет в этом же потоке. А команды выполняются последовательно.

Сообщение от Kronos913

И как это исправить?

Сказать форме проапдейтиться.

Таймеры на разных версиях системы могут работать с разной точностью. Читайте справку майкрософта.

[Kronos913]

Единственный метод, который исправил проблему - это создать таймер с интервалом 1, переместить в него весь код после смены цвета. И активировать его после смены цвета формы

Но такие кустарные методы - как-то не очень...

[Kronos913]

Сообщение от FrosyaZZ

Сказать форме проапдейтиться.

Как это сделать?

[Kronos913]

При этом, в другой части этой же программы, только на первой форме:

  label3.Color:=ClRed;
  memo2.lines.clear;
  DirSearch(memo1.Lines[ind], memo2.Lines);
  label3.Color:=clBtnFace;

И работает все верно

[BDA]

Form3.Color := clLime;
Form3.Refresh;

[Kronos913]

Спасибо. Все исправилось