Abfragen welche Komponente den Focus hat

[roedel]

Hai Leute,

habe gerade gesehen das es schon zwei aktuelle Threads gibt, von Leuten die gerne ihren Komponenten den Focus zuweisen möchten. Bei mir ist es anders herum.

Ich habe schon mehrere Komponenten und möchte gerne wissen welche den Focus hat.
Ich stelle mir etwa sowas vor:

Delphi-Quellcode:

function application.getfocus(komponente: TObject) //gibt es aber nicht

Gibt es sowas in der Richtung. Ehrlich gesagt habe ich keine Lust alle Komponenten einzeln abzufragen.
Ich könnte natürlich auch immer die aktuelle Focus-Komponente in eine TObject-Variable bereithalten, aber es gibt doch sicher was vorgefertigtes.

Gruß Roedel

[Union]

Das aktuelle TWinControl steht in TForm.ActiveControl.