Aktuelle Komponente die den Fokus hat herausbekommen?

[Sprint]

Delphi-Quellcode:

var
  I: Integer;
begin

  for I := 0 to Self.ComponentCount - 1 do
    if Self.Components[I] is TWinControl then
      with (Self.Components[I] as TWinControl) do
        if Focused then
        begin
          ShowMessage(Name);
          Break;
        end;

end;

Oder OnEnter & OnExit der Komponenten auswerten. Oder die WinAPI Funktion GetFocus benutzen.