Вкладка RX Tools. Компонент TAppEvents

   
На этом шаге мы рассмотрим компонент 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.



Вы можете оставить комментарий, или Трекбэк с вашего сайта.

Оставить комментарий