На этом шаге мы рассмотрим компонент TAppEvents.

    Компонент предназначен для создания в режиме дизайна формы обработчиков событий TApplication и задания значения некоторых свойств TApplication.

    Рассмотрим пример, демонстрирующий работу компонента TAppEvents. Поместим на форму компоненты TButton и TAppEvents. (рис. 1)

Рис.1. Форма с размещенными компонентами

    Для Form1 установим свойство ShowHint в значение True, чтобы при задержке указателя мыши на форме появлялась подсказка, текст которой напишем в свойстве Hint. Именно это событие нашего приложения мы и будем обрабатывать компононентом TAppEvents. Напишем обработчик этого события OnShowHint для компонента TAppEvents:

procedure TForm1.AppEvents1ShowHint(var HintStr: String; var CanShow: Boolean; 
     var HintInfo: THintInfo);
begin
     Form1.Button1.Caption:='RX Lib';
end;

    Во время работы нашего приложения, если задержать указатель мыши на форме, срабатывает событие OnShowHint нашего приложения, после чего срабатывает событие OnShowHint компонента TAppEvents, и свойство Caption кнопки Button1 изменяется.

Текст этого примера можно взять здесь.

    На следующем шаге мы рассмотрим компонент TSpeedBar.

Предыдущий шаг Содержание Следующий шаг