Hint des aktiven Controls in Statusbar

[mr_chrome]

Hallo FAlter,
ja du hast schon recht, OnExit brauch ich eigentlich nicht.
Meine Anweisung bei OnEnter ist im Prinzip ähnlich wie deine Prozedur - Resultat ist das gleiche.

Danke für den Hinweis mit dem OnShortCut-Ereignis von TApplication - hatte ich wahrscheinlich übersehen.

Thomas

[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;