Hint des aktiven Controls in Statusbar

[FAlter]

So, jetzt ist es getestet!!!

Delphi-Quellcode:

procedure TForm1.EnterEvent(Sender: TObject);
begin
  if Sender is TControl then
    StatusBar.Panels[2].Text := TControl(Sender).Hint
  else
    StatusBar.Panels[2].Text := '';
end;