БОЛЬШОЙ FAQ ПО DELPHI



если приложение долго выполняет какой-то цикл, как сделать так, чтобы другие приложения не подвисали?

Нужно вставить в тело цикла: Application.ProcessMessages. После этого даже само приложение, выполняющее цикл не будет виснуть. Например, по нажатию на кнопку напишите следующий код: procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
randomize;
for i:=0 to 50000000 do begin
Form1.Caption:=IntToStr(Random(5000));
Application.ProcessMessages;
end;
end;



<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ