Hint Ausgabe abschalten + umleiten auf eine Statusbar

[marabu]

Hallo,

ich würde es so angehen:

Delphi-Quellcode:

procedure TDemoForm.ApplicationEventsActionExecute(Action: TBasicAction;
  var Handled: Boolean);
begin
  if Action is THintAction then
    with THintAction(Action) do
      if Hint = '' then
      begin
        Hint := PermaHint();
        Handled := True;
      end;
end;

Grüße vom marabu


Nachtrag:

Vielleicht sollte ich noch auf die Eigenschaft AutoHint der Komponente TStatusBar hinweisen, die eigenen Code zur Behandlung von Hints oft überflüssig macht.