Использование обработчика OnHint при наличии нескольких форм
Материал из DRKB
Использование обработчика OnHint при наличии нескольких форм[править | править код]
В Online Help и в Visual Component Library Reference описан пример обработчика события OnHint объекта TApplication. Пример показывает, как можно использовать панель для отображения подсказок (hint), связанных с другими компонентами. В примере обработчик OnHint устанавливается во время обработки события OnCreate для формы; в программе, включающей более чем одну форму, будет трудно использовать эту технику.
Перемещение присваивания обработчика OnHint из события OnCreate формы в событие OnActivate позволит различным формам данного приложения работать с подсказками, как им нужно.
Ниже приведен измененный пример из OnLine Help и VCL Reference.
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;
Source: http://dmitry9.nm.ru/info/
ID: 01281