已知一个窗口的Handle，如何将该窗体设置成本程序的MDI子窗体？

Question

如题，请各位高人指点一下。

Answer 1

MDI子窗体是不能在运行环境下设置的 必须是在设计阶段完成

Answer 2

MDI子窗体不大容易，你看看下面这个效果可不可以
procedure TForm1.Button1Click(Sender: TObject);
var
    h:thandle;
begin
    h:=findwindow(nil,'新建 文本文档.txt - 记事本');
    if h>0 then //找到　
    Windows.SetParent (h,self.handle);//重新设置parent为你的当前窗口
end;

Answer 3

Windows.SetParent这个函数我试过了，感觉不好，如果我要做成MDI的每个窗口就都需要一个宿主窗口。请各位高人继续指点。感激不尽.