What's the name of the Window at x,y?

If you have a need to find out the name of the parent window of a window or control at a given X and Y position, you maybe able to use the following "GetParentWindowNameAt()" function:

 

function GetParentWindowNameAt
         ( X, Y : integer ) : string;
var
  P : TPoint;
  W : TWinControl;
begin
  P.X := X;
  P.Y := Y;

  W := FindVCLWindow( P );
  if( nil <> W )then
  begin
    Result := W.Name;
  end else
  begin
    Result := '';
  end;
end;

Listing #1 : Delphi code. Download winname (0.3 KB).

 

For example, to get the name of the parent (bottom most window) at (250,300) to a string variable named "strName"

 

strName :=
  GetParentWindowNameAt( 250, 300 );

Listing #2 : Delphi code. Download demo1 (0.17 KB).