得到鼠标所在位置的窗体名称

字体大小: 中小 标准 ->行高大小: 标准 中 大 
下面的程序可以搞定：

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;

此文章由 http://www.ositren.com 收集整理 ,地址为: http://www.ositren.com/htmls/68099.html