Hints global definieren

[TheMiller]

Hallo,

ich würde die Hints gerne in einer Statusbar (Toolbar2000) anzeigen lassen. Das habe ich jetzt für Form1 geschafft. Wie kann ich aber die Hints generell in allen Forms in deren Statusbar eintragen lassen?

Habe diese Funktion:

Delphi-Quellcode:

procedure TBXHint(Sender: TObject);
...
procedure TForm1.TBXHint(Sender: TObject);
begin
  HintInterface.Panels[0].Caption:=GetLongHint(Application.Hint);
end;

procedure TForm1.Create(Sender: TObject);
begin
  Application.OnHint:=TBXHint;
end;

Muss ich diesen Code wirklich in jedes Form eintragen, oder geht das auch noch irgendwie einfacher?


Dankeschön!