Delphi/Lazarus: Obtenir Handle de la Fenêtre sous le Curseur de la Souris

Tout d'abord, vous devez déterminer la position actuelle de la souris. Cela peut être fait en utilisant la fonction GetCursorPos(). Après cela, vous pouvez utiliser la fonction WindowFromPoint() pour spécifier la fenêtre à cet emplacement.

Voici un exemple:

var
  ACursorPos: TPoint;
  AHandle: HWND;
begin

  if GetCursorPos(ACursorPos) then begin

     AHandle := WindowFromPoint(ACursorPos);

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

end;

Étant donné que les deux fonctions peuvent échouer, vous devez implémenter des conditions comme je l'ai fait dans l'exemple. Seulement si vous êtes sûr que le Handle n'est pas 0, c'est-à-dire qu'une fenêtre a été trouvée, vous devez continuer et utiliser le Handle. Dans l'exemple ci-dessus, nous envoyons un message à la fenêtre correspondante.
18/03/2023 à 21:26