WindowHandle des Fensters in dem der Kurser blinkt ermtteln?

[toms]

Somit kann das Control mit dem Focus systemweit ermittelt werden:

Delphi-Quellcode:

function GetSysFocus: Integer;
var
  hFgWin, FgThreadID, hFocusWin: Integer;
begin
  hFgWin := GetForegroundWindow;
  FgThreadID := GetWindowThreadProcessID(hFgWin, nil);
  if AttachThreadInput(GetCurrentThreadID, FgThreadID, True) then
  begin
    hFocusWin := GetFocus;
    Result := GetFocus;
    AttachThreadInput(GetCurrentThreadID, FgThreadID, False);
  end
  else
    Result := GetFocus;
end;