Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 10 декабря!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ 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/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS