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

Встретились 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;

Похожие по теме исходники

Примеры работы с БД

Примеры оформления DBGrid

Пример использования DBGrid

База предприятий и менеджеров 0.99

Консольное DOS приложение

Работа с принтером

Локализация приложений

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 520 • TDictionary Custom Sort 6 545 • Fast Watermark Sources 6 326 • 3D Designer 9 276 • Sik Screen Capture 6 659 • Patch Maker 7 035 • Айболит (remote control) 7 048 • ListBox Drag & Drop 5 918 • Доска для игры Реверси 97 331 • Графические эффекты 7 250 • Рисование по маске 6 548 • Перетаскивание изображений 5 412 • Canvas Drawing 5 787 • Рисование Луны 5 491 • Поворот изображения 5 019 • Рисование стержней 3 577 • Paint on Shape 2 833 • Генератор кроссвордов 3 712 • Головоломка Paletto 2 988 • Теорема Монжа об окружностях 3 795 • Пазл Numbrix 2 499 • Заборы и коммивояжеры 3 184 • Игра HIP 2 149 • Игра Go (Го) 2 086 • Симулятор лифта 2 461 • Программа укладки плитки 2 129 • Генератор лабиринта 2 604 • Проверка числового ввода 2 280 • HEX View 2 612 • Физический маятник 2 225