Hint des aktiven Controls in Statusbar

[Muetze1]

Moin!

Bei dem Formular mit der Statusbar im Public Bereich folgendes einfügen:
    Function ExecuteAction(Action: TBasicAction): Boolean; Override; Dann die Funktion vervollständigen lassen und dort dann folgenden Code hinein:

Delphi-Quellcode:

Function Tfrm_FBIIMainForm.ExecuteAction(Action: TBasicAction): Boolean;
Begin
  Result := False;

  If ( Action Is THintAction ) Then
  Begin
    Result   := True;
    If ( THintAction(Action).Hint <> '' ) Then
      StatusBar1.SimpleText := THintAction(Action).Hint;
  End;
End;

/EDIT:
Hinweis:

1. meine Funktion klappt auch bei Delphi 4, der noch keine öffentliche TApplication Komponente hat.
2. meine Funktion zeigt nur die Hints des Formulares an und z.B. nicht die eines modalen Dialoges auf der Form, wie es bei Application->OnHint der Fall ist.

MfG
Muetze1