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

Встретились 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 722 • TDictionary Custom Sort 6 724 • Fast Watermark Sources 6 507 • 3D Designer 9 445 • Sik Screen Capture 6 839 • Patch Maker 7 288 • Айболит (remote control) 7 231 • ListBox Drag & Drop 6 090 • Доска для игры Реверси 97 836 • Графические эффекты 7 406 • Рисование по маске 6 702 • Перетаскивание изображений 5 557 • Canvas Drawing 5 941 • Рисование Луны 5 717 • Поворот изображения 5 179 • Рисование стержней 3 783 • Paint on Shape 2 964 • Генератор кроссвордов 3 904 • Головоломка Paletto 3 103 • Теорема Монжа об окружностях 3 913 • Пазл Numbrix 2 577 • Заборы и коммивояжеры 3 371 • Игра HIP 2 312 • Игра Go (Го) 2 211 • Симулятор лифта 2 621 • Программа укладки плитки 2 204 • Генератор лабиринта 2 720 • Проверка числового ввода 2 360 • HEX View 2 696 • Физический маятник 2 373