Delphi/Lazarus: Handle des Fensters unter dem Maus-Cursor ermitteln

Zunächst musst du die aktuelle Mausposition abfragen. Das geht mit der Funktion GetCursorPos(). Anschließend kannst du die Funktion WindowFromPoint() benutzen, um das Fenster an dieser Position zu ermitteln.

Hier ist ein Beispiel:

var
  ACursorPos: TPoint;
  AHandle: HWND;
begin

  if GetCursorPos(ACursorPos) then begin

     AHandle := WindowFromPoint(ACursorPos);

     if AHandle <> 0 then begin
        SendMessage(AHandle, ..., ..., ...);
     end;
  end;  

end;

Da beide Funktionen natürlich fehlschlagen können, solltest du wie in diesem Beispiel Bedingungen einbauen. Erst wenn sichergestellt ist, dass das Handle ungleich 0 ist, also ein Fenster gefunden wurde, solltest du fortfahren und das Handle benutzen. In dem Beispiel senden wir eine Message an das betreffende Fenster.
Letztes Update am 22.03.2023 | Erstellt am 08.01.2016