[bleex]

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

Код:

procedure TForm5.Timer2Timer(Sender: TObject);
var
  a: integer;
begin
  if find.checked=true then
    begin
      k:= strtoint(edit1.Text);
      for i:= 1 to m do
        begin
          lbl1[i].Color:= clYellow;
          if lbl1[i].height=k then
            begin
              lbl1[i].Color:= clGreen;
              lbl2[i].Font.Color:= clGreen;
              //showmessage('find ', k);
              //exit
            end
          else
              lbl1[i].Color:= clRed;
              //exit;
              //i:= i+1;
            end;
    end;

[M.A.D.M.A.N.]

Добавь application.ProcessMessages в цикле.

[bleex]

Добавлять в начало цикла? или после каждого оператора?

[poli-smen]

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

Добавлять в начало цикла? или после каждого оператора?

Внутри цикла, в том месте где все надписи уже обновились и должны перерисоваться. После каждого оператора не обязательно.

[bleex]

не замедляется..

[poli-smen]

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

не замедляется..

Для замедления (приостановки) используй функцию Sleep (сразу после Application.ProcessMessages):

Код:

Sleep(5000); // Приостановка на 5 секунд