广州厂家直销包包:获得MDI子窗体句柄

来源:百度文库 编辑:偶看新闻 时间:2024/04/27 13:01:04
MID窗体的容器为MDIClient,在主窗体中先找到MDIClient,再搜索

procedure   TForm1.Button1Click(Sender:   TObject);
var
    vHandle:   THandle;
    vBuffer:   array[0..255]   of   Char;
begin
    vHandle   :=   Handle;
    vHandle   :=   FindWindowEx(vHandle,   0,   'MDIClient ',   nil);
    if   vHandle   =   0   then   Exit;
    vHandle   :=   GetWindow(vHandle,   GW_CHILD);
    while   vHandle   <>   0   do
    begin
        GetClassName(vHandle,   vBuffer,   SizeOf(vBuffer));
        ShowMessage(IntToStr(vHandle)   +   ', '   +   vBuffer);
        vHandle   :=   GetWindow(vHandle,   GW_HWNDNEXT);
    end;
end;