delphi中,如何用api函数,得知当前窗体

最新推荐文章于 2024-06-21 15:15:23 发布

xiegesheng2003

最新推荐文章于 2024-06-21 15:15:23 发布

阅读量1.2k

点赞数

文章标签： delphi api integer function string

本文链接：https://blog.csdn.net/xiegesheng2003/article/details/281916

版权

//自定义函数GetFormNameAt，获得鼠标针指下窗体的Name
function GetFormNameAt ( X, Y : integer ) : string;
var
   P:TPoint;
   W:TWinControl;
begin
   P.X := X;
   P.Y := Y;
   W := FindVCLWindow(P); //得到鼠标指针下的VCL可视组件
   if ( nil <> W ) then
   begin
      while w.Parent<>nil do //当W的上级Parent不为空时就继续往上找
        w:=w.Parent;
      Result := W.Name;//最后返回窗体的名称Name
   end
   else
   begin
    Result := ’’;
   end;
end;
procedure TForm1.click(Sender: TObject);
var
   winPos:TPoint;
begin
   GetCursorPos(winpos); //得到当前鼠标指针的在屏幕上的坐标
   form1.name=GetFormNameAt(winpos.X,winpos.Y)
end;