В Online Help и в Visual Component Library Reference описан пример обработчика события OnHint объекта TApplication. Пример показывает, как можно использовать
панель для отображения подсказок (hint), связанных с другими компонентами. В примере обработчик OnHint устанавливается во время обработки события OnCreate
для формы; в программе, включающей более чем одну форму, будет трудно использовать эту технику.
Перемещение присваивания обработчика OnHint из события OnCreate формы в событие OnActivate позволит различным формам данного приложения работать с
подсказками, как им нужно.
Ниже приведен измененный пример из OnLine Help и VCL Reference.
|
Code: |
|
type TForm1 = class(TForm) Button1: TButton; Panel1: TPanel; Edit1: TEdit; procedure FormActivate(Sender: TObject); private { Private declarations } public procedure DisplayHint(Sender: TObject); 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; |
Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.
ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!