Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС
выпущен 4 ноября!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Использование события OnHint во многих формах

Электронная справка Delphi и "Visual Component Library Reference" имеют пример обработчика события объекта TApplication OnHint. Пример показывает как панель может использоваться для отображения подсказок соответствующих компонентов. Так как пример назначает метод объекта Application OnHint в обработчике события формы OnCreate, то программа, имеющая более чем одну форму, будет иметь трудности при использовании данной технологии.

Перемещение назначения метода OnHint из обработчика формы OnCreate в обработчик OnActivate позволит другим формам приложения также манипулировать выводом подсказок.

Вот измененный текст кода, представленный в электронной справке и VCL Reference.


 type
   TForm1 = class(TForm)
     Button1: TButton;
     Panel1: TPanel;
     Edit1: TEdit;
     procedure FormActivate(Sender: TObject);
   private
     { Private declarations }
   public
     procedure DisplayHint(Sender: TObjject);
   end;
 
 implementation
 
 {$R *.DFM}
 
 procedure TForm1.DisplayHint(Sender: TObject);
 begin
   Panel1.Caption := Application.Hint;
 end;
 
 procedure TForm1.FormActivate(Sender: TObject);
 begin
   Application.OnHint := DisplayHint;
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS