Событие OnIdle

Наиболее часто используются события OnIdle, OnException и OnHint объекта – приложения.

Событие OnIdle типа TIdleEvent возникает при простое приложения. для кодирования действий приложения, когда оно находится в режиме ожидания работы, используется обработчик события ОnIdle. Операции, включенные в этот обработчик, выполняются каждый раз, когда приложение заканчивает текущую работу и переходит в режим простоя. Код обработчика события не должен быть большим и требовать много времени на выполнение, т. к. это приведет к замедлению работы приложения в целом.

Процедура обработки события OnIdleобычно описывается и используется в модуле главной формы приложения. Например, в процедуре

procedure TForml.ApplicationEventslldle(Sender: TObject; var Done: Boolean);

begin

if Application.Active

then Forml.Caption :=’Приложение активно’

else Forml.Caption :=’Приложение неактивно’;

end;

выполняется проверка активности приложения, что отмечается в заголовке формы Form1.

Если компонент ApplicationEvents не используется, то обработчики событий объекта-приложения можно кодировать по следующей технологии:

1. В классе какой-либо формы (обычно главной) указать заголовок процедуры-обработчика.

2. В разделе implementation модуля формы описать процедуру - обработчик.

З. В методе FormCreate создания формы назначить созданную процедуру обработчиком соответствующего события.

Указанные действия являются типовыми при написании собственных обработчиков событий, и их рассмотрение позволяет лучше понять технику обработки событий, реализованную в Delphi.

Например, при использовании события OnIdle для проверки активности приложения в код модуля Unit1 формы Form1 нужно внести следующие изменения:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Label1: TLabel;

procedure FormCreate(Sender: TObject);

//заголовок процедуры-обработчика OnIdle

procedure IdleWork (Sender: TObject; var Done: Boolean);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

//Установка обработчика события

procedure TForm1.FormCreate(Sender: TObject);

begin

Application.OnIdle:= IdleWork;

end;

//Обработчик события

procedure Tform1.IdleWork(Sender: Tobject; var Done: Boolean);

begin

if Application.Active

then form1.Caption:=’Приложение активно’

else form1.Caption:=’Приложение неактивно’;

end;

end.