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

Встретились 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 (Тетрис) 3 787 • TDictionary Custom Sort 5 902 • Fast Watermark Sources 5 703 • 3D Designer 8 474 • Sik Screen Capture 6 036 • Patch Maker 6 480 • Айболит (remote control) 6 473 • ListBox Drag & Drop 5 338 • Доска для игры Реверси 94 944 • Графические эффекты 6 677 • Рисование по маске 5 797 • Перетаскивание изображений 4 860 • Canvas Drawing 5 235 • Рисование Луны 4 958 • Поворот изображения 4 504 • Рисование стержней 3 186 • Paint on Shape 2 433 • Генератор кроссвордов 3 306 • Головоломка Paletto 2 619 • Теорема Монжа об окружностях 3 402 • Пазл Numbrix 2 249 • Заборы и коммивояжеры 2 908 • Игра HIP 1 878 • Игра Go (Го) 1 793 • Симулятор лифта 2 130 • Программа укладки плитки 1 857 • Генератор лабиринта 2 296 • Проверка числового ввода 1 983 • HEX View 2 294 • Физический маятник 1 957