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

Встретились 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 797 • TDictionary Custom Sort 6 794 • Fast Watermark Sources 6 582 • 3D Designer 9 536 • Sik Screen Capture 6 919 • Patch Maker 7 370 • Айболит (remote control) 7 305 • ListBox Drag & Drop 6 171 • Доска для игры Реверси 98 109 • Графические эффекты 7 483 • Рисование по маске 6 774 • Перетаскивание изображений 5 630 • Canvas Drawing 6 007 • Рисование Луны 5 798 • Поворот изображения 5 251 • Рисование стержней 3 846 • Paint on Shape 3 001 • Генератор кроссвордов 3 955 • Головоломка Paletto 3 138 • Теорема Монжа об окружностях 3 969 • Пазл Numbrix 2 620 • Заборы и коммивояжеры 3 431 • Игра HIP 2 348 • Игра Go (Го) 2 264 • Симулятор лифта 2 664 • Программа укладки плитки 2 226 • Генератор лабиринта 2 776 • Проверка числового ввода 2 385 • HEX View 2 721 • Физический маятник 2 412