鼠标所在位置的窗体名称

]、。·ˉˇ¨〃々—～‖…’”〕〉》」』〗】∶！＂＇），．：；？］｀ 标  题: 得到鼠标所在位置的窗体名称

下面的程序可以搞定：

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

Result := W.Name;

Result := '';

end;