Delphi 5. Среда разработки


Бесплатные объявления Из рук в руки Нальчик, авто г.Костромы          

Компонент TApplicationEvents


В предыдущих версиях Delphi для создания обработчика события объекта TApplication следовало создать процедуру, а затем в явном виде присвоить имя этой процедуры обработчику события TApplication, например:

procedure TForm1.ProcMess(var msg: TMsg; var handled: boolean);

begin

    if (msg.message=WM_SYSCOMMAND) and

       (msg.wParam=SC_SCREENSAVE) and

       (RadioGroup1.ItemIndex=1)

    then

     handled:=true

    else

      handled:=false;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

  Application.OnMessage:=ProcMess;

end;

Иными словами, способ создания обработчиков таких событий отличался от привычного, использующего генерацию "заготовок" кода при щелчке на нужной строке инспектора объектов. Теперь же создавать такие обработчики событий можно и традиционным способом. Для этой цели можно использовать новый компонент TApplicationEvents, список событий которого включает все события TApplication. Этот компонент можно поместить на любую форму приложения (и даже на несколько форм), и при наступлении обрабатываемого события все имеющиеся обработчики будут выполняться по очереди. Если необходимо, чтобы один из имеющихся обработчиков этого события выполнялся первым, следует вызвать его метод Activate (например, в обработчике события OnActivate формы, на которой он находится). Для того, чтобы предотвратить выполнение последующих обработчиков данного события, можно вызвать метод CancelDispatch компонента TApplicationEvents.



Содержание раздела