delphi 控件怎么获得窗体的句柄

发布网友发布时间：2022-11-05 14:04

共1个回答

热心网友时间：2023-10-22 12:59

delphi 里有窗体的控件，都有一个　handle　属性，里面保存的就是窗体的句柄。

如果是想要获取软件（程序）之外的窗体句柄，可以使用 win32 函数：FindWindow 或GetWindow来遍历查找，示例代码如：

handle := FindWindow(nil,PChar('窗口的标题'));

FindWIndow 示例：

procere TForm1.Button1Click(Sender: TObject);
var
　　hCurrentWindow: HWnd;
　　WndText:String;
begin
　　hCurrentWindow := GetWindow(Handle, GW_HWNDFIRST);
　　while hCurrentWindow <> 0 do
　　begin
　　　　WndText:=GetWndText(hCurrentWindow);
　　　　if UpperCase(WndText)='窗口的标题' then begin
　　　　　　...
　　　　　　...
　　　　end;
　　　　hCurrentWindow:=GetWindow(hCurrentWindow, GW_HWNDNEXT);
　　end;
end;