鼠标所在位置的窗体名称

Tags: /超级猛料/VCL/Form，窗体/FAQ/   Date Created:

标  题: 得到鼠标所在位置的窗体名称
下面的程序可以搞定：
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;