При выполнении длительных операций приложение не реагирует на поступающие сообщения, в том числе и на действия пользователя. Часто приложение даже не отображает в своих формах происходящие визуальные изменения, т. е. не прорисовывает формы своевременно. Такая ситуация возможна, например, в циклах обработки больших массивов данных. Исправить это положение можно путем вызова метода ProcessMessages, который предписывает приложению обработать поступившие и ожидающие своей очереди сообщения. Рассмотрим в качестве примера принудительную обработку сообщений в процедуре, выполняющей отображение ряда числовых значений:
procedure TForml .ButtorilClick(Sender: Tobject);
var i: longint;
begin
for i 1 to 10000 do begin
Editl.Text := IntToStr(i);
Application. ProceasMessages;
end;
end;
После нажатия кнопки Button1 переменная i в цикле принимает ряд значений, которые отображаются в редакторе Edit1. Если из цикла убрать инструкцию Application.ProcessMessages, то после нажатия кнопки Button1 программа как бы “зависнет” на несколько секунд. При этом редактор Edit1 отобразит только последнее значение переменной i, равное 10000. Во время выполнения цикла программа не будет реагировать на действия пользователя, связанные, например, с перемещением окна, изменением его размеров или закрытием.
Если во время выполнения цикла необходимо только своевременное отображение в поле редактора значения переменной i, то в тело цикла достаточно вставить строку, которая предписывает заново прорисовать видимую область элемента управления:
Edit1.Refresh;
В этом случае при отсутствии в теле цикла вызова метода ProcessMessages программа до окончания цикла не будет реагировать на действия пользователя. Поэтому рекомендуется вставлять вызов метода ProcessMessages во все длительные циклы, например, возникающие при обработке большой базы данных. Если требуется досрочно завершить цикл, то в дополнение к этому методу в цикле следует разместить также операторы проверки условий прерывания цикла и выхода из цикла при их соблюдении. При этом параллельно с выполнением цикла должны производиться действия (путем обработки событий), влияющие на соблюдение условий прерывания цикла, например установка соответствующего признака при нажатии кнопки или выборе переключателя.
Пример:
Var BreakFlag: boolean;
…
procedure TForml.Button1Click(Sender: TObject);
begin
BreakFlag := True;
end;
procedure TForml.Button2Click(Sender: TObject);
begin
BreakFlag := False;
for i := 1 to 10000 do begin
Application. ProcessMessages;
if BreakFlag then Break;
end;
end;
При нажатии кнопки Button2 начинается цикл, который может быть прерван нажатием кнопки Button1, поскольку при этом переменной-признаку BreakFlag присваивается значениеTrue. Вызов процедуры ProcessMessages в теле цикла позволяет выполнить указанное присваивание (в обработчике события нажатия кнопки Button1).
В ходе цикла приложение просто так не закрывается, даже если вызвать в теле цикла метод ProcessMessages. Одна из возможностей обеспечить закрытие приложения при выполнении цикла заключается в проверке свойства Terminated типа Boolean. Значение True свойства означает, что приложение получило команду (сообщение) закрытия. Поэтому для закрытия приложения можно вставить в тело цикла следующую инструкцию:
If Application. Terminated then Break;
Закрыть (прекратить выполнение) приложение позволяет также метод Terminate, вызов которого приводит к освобождению всей занятой объектами памяти и завершению приложения. Однако обычно эта процедура явно не вызывается, а используется метод Close главной формы.
Объект Application доступен только во время выполнения приложения, поэтому для облегчения кодирования обработчиков событий удобно использовать компонент ApplicationEvents. После размещения этого компонента в форме события приложения становятся доступными также на этапе проектирования через Инспектор объектов, и их обработчики можно программировать так же, как обработчики других объектов, например, кнопки Button.
