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

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;
阅读更多
个人分类: delphi
上一篇sqlserver实现oracle的instr函数(未完)
想对作者说点什么? 我来说一句

js 父窗体子窗体数据交互

2008年07月07日 1KB 下载

没有更多推荐了,返回首页

关闭
关闭