Alter Thread, aber das Problem war nicht gelöst.
Die noch nicht ganz vollständige Lösung zeigt nun die Hints von TMainMenue in der Statuszeile an:
(Es fehlte ein Applikation.ShowHint:=True im Code.)
Delphi-Quellcode:
// Oben im Hauptformular
type
TMainForm = class(TForm)
// ...
public
procedure DisplayHint(Sender: TObject);
end;
// Implementierung
procedure TMainForm.DisplayHint(Sender: TObject);
begin
if Application.Hint <> '' then
begin
StatusBar.SimplePanel := True;
StatusBar.SimpleText := Application.Hint;
end
else
StatusBar.SimplePanel := False;
end;
// Zuweisung
procedure TMainForm.FormCreate(Sender: TObject);
begin
// ...
// Ergänzung:
Applikation.ShowHint:=True;
Application.OnHint := DisplayHint;
// ...
end;
Weitere Eigenschaften und Methoden bei Hints finden sich in der Hilfe unter Application...
Weiterhin besteht das Problem:
Die obenstehende Lösung zeigt jedoch erst die Hints in der Statuszeile an, nachdem auf einen Eintrag (TMenueItem) im TMainmenue geklickt habe. Erst dann zeigen sich auch die anderen Hints in der Statuszeile.
Auch mein erster Eintrag im TMainMenue mit z. B. &Backup wird im Editor mir Unterstrich beim B korrekt angezeigt, jedoch bei der Programmausführung nicht. Lästig!
Eine MouseOver-Eigenschaft könnte zumindestens die Hint-Problematik lösen. Diese Eigenschaft gibt es allerdings unter TMainmenue nicht.
Beste Grüße an die
DP!
Go2EITS