TMainmenue: Hint wird nicht angezeigt.

[Flocke]

Normal etwa so:

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
  // ...
  Application.OnHint := DisplayHint;
  // ...
end;