关闭

递归获得窗体下所有子窗体信息

96人阅读 评论(0) 收藏 举报
分类:
function  TForm1.GetChildWindows(h:HWND) :HWND;
var
  buf: array[0..255] of Char;  {这个缓冲区是获取类名用的, 如果不需要可以删除}
  begin
  h := GetWindow(h, GW_CHILD); {第一个子窗口}
  while h <> 0 do
  begin
    {下面两行是要执行的操作, 并假定只处理 TEdit}
    GetClassName(h, buf, Length(buf));
    //if buf = 'TSyntaxMemo' then
    ShowMessageFmt('%s:%d', [buf, h]);
    GetChildWindows(h);             {递归}
    h := GetWindow(h, GW_HWNDNEXT); {下一个子窗口}
  end;
end;
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:2366次
    • 积分:73
    • 等级:
    • 排名:千里之外
    • 原创:5篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章分类