БОЛЬШОЙ FAQ ПО DELPHI



Чтобы при выполнении длительного цикла другие приложения не подвисали

Встретились Windows 95 и Windows 98:
- Ну что, в бар пойдем, или тут зависнем?

Нужно вставить в тело цикла:


 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/



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