Правильная ссылка на эту страницу
http://az-design.ru/Support/SoftWare/Delphi/D3/SB27OnHint.shtml

Глава 27. TApplication.OnHint

Событие OnHint

Затрагиваемые объекты TApplication
Назначение Событие OnHint происходит в момент, когда указатель мыши позиционируется над компонентом, свойство Hint которого содержит действительную строку.
Объявление property OnHint: TNotifyEvent;
Пример синтаксиса
unit Unit1;
interface
uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls,
   Forms, Dialogs, Buttons, ExtCtrls, ComCtrls;
 
type TForm1 = class(TForm)
     StatusBar1: TStatusBar;
     Pane11: TPanel;
     SpeedButton1: TStatusBar;
     SpeedButton2: TStatusBar;
     SpeedButton3: TStatusBar;
     SpeedButton4: TStatusBar;
     SpeedButton5: TStatusBar;
     procedure FormCreate(Sender: TObject);

private
  { Private declarations   }

Public
// вручную добавленный обработчик события OnHint
    procedure HandleHints(Sender: TObject);

end;
 
var
  Form1: TForm1;
 
Implementation
{$R  *.DFM}
//  установить обработчик события OnHint(HandleHints)

procedure TForm1.FormCreate(Sender: TObject);
begin
   Application.OnHint := HandleHints;

end;
// при возникновении события OnHint отобразить
// в панели состояния подсказку

procedure TForm1.HandleHints(Sender: TObject);
begin
   StatusBar1.SimpleText := Application.Hint;

end;
Описание

       Для того, чтобы произошло событие OnHint, компонент, который пытается включить событие, должен иметь в своем свойстве Hint непустую строку. Событие OnHint можно обрабатывать так, чтобы выполнять любые задачи, которые необходимо решить при возникновении события. Рисунок 27-8 показывает советы, отображающиеся на линейке состояния.


РИСУНОК 27-8 Отображение управляющих подсказок в панели состояния

       Обычно обработка приложением события OnHint заключается в отображении текста Hint или дополнительной справочной информации в панели состояния формы, как показано в примере выше.

[Свойство Active] [Метод BringToFront] [Метод CreateForm] [Свойство ExeName] [Свойство Handle] [Метод HelpCommand] [Метод HelpContext] [Свойство HelpFile] [Метод HelpJump] [Свойство HintColor] [Свойство HintHidePause] [Свойство HintPause] [Свойство HintShortPause] [Свойство Icon] [Метод Initialize] [Свойство MainForm] [Метод MessageBox] [Метод Minimize] [Событие OnActivate] [Событие OnDeactivate] [Событие OnException] [Событие OnHelp] [Событие OnHint] [Событие OnIdle] [Событие OnMessage] [Событие OnMinimize] [Событие OnRestore] [Событие OnShowHint] [Метод Restore] [Метод Run] [Свойство ShowHint] [Свойство ShowMainForm] [Метод Terminate] [Свойство Title]


<<< Пред. Оглавление
Начало раздела
След. >>>




Дата последнего изменения:
Thursday, 21-Aug-2014 09:10:56 MSK


Постоянный адрес статьи:
http://az-design.ru/Support/SoftWare/Delphi/D3/SB27OnHint.shtml