Hint des aktiven Controls in Statusbar

[Sharky]

Hai mr_chrome,

ich habe das jetzt mal mit einem Timer gemacht. Ist zwar sicher nicht die schönste Lösung aber dafür ist sie schön einfach

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Enabled := False;
  Timer1.Interval := 100;
  Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Statusbar1.Panels[0].Text := ActiveControl.Hint;
end;