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