Hint des aktiven Controls in Statusbar

[FAlter]

Mach es doch einfach über OnEnter:

Delphi-Quellcode:

{ Pseudocode }
procedure TMainForm.EnterEvent(Sender: TObject);
begin
  //Alle Komponenten haben das hier als OnEnter
  
  if Sender is TControl {oder ab wo es Hint gibt} then
    StatusBar.Panels[2].Text := TControl(Sender).Hint
  else
    StatusBar.Panels[2].Text := '';
end;