Examples Delphi

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;
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 );