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

Встретились 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 (Тетрис) 122 • TDictionary Custom Sort 3 310 • Fast Watermark Sources 3 060 • 3D Designer 4 814 • Sik Screen Capture 3 311 • Patch Maker 3 527 • Айболит (remote control) 3 628 • ListBox Drag & Drop 2 990 • Доска для игры Реверси 81 516 • Графические эффекты 3 917 • Рисование по маске 3 224 • Перетаскивание изображений 2 607 • Canvas Drawing 2 730 • Рисование Луны 2 553 • Поворот изображения 2 162 • Рисование стержней 2 160 • Paint on Shape 1 564 • Генератор кроссвордов 2 223 • Головоломка Paletto 1 764 • Теорема Монжа об окружностях 2 209 • Пазл Numbrix 1 680 • Заборы и коммивояжеры 2 051 • Игра HIP 1 276 • Игра Go (Го) 1 222 • Симулятор лифта 1 469 • Программа укладки плитки 1 213 • Генератор лабиринта 1 540 • Проверка числового ввода 1 349 • HEX View 1 487 • Физический маятник 1 353