根据句柄显示窗体的问题

我仅仅知道一个窗体的句柄，希望实现的是：
1、将该窗体以模态窗体显示
2、将该窗体显示在TWincontrol内。意思是我建立一个新的窗体，窗体上放一个Panel，希望把那个需要显示的窗体放在Panel里面

解决方案 »

  1.   

    绑架窗体。在窗体的private中定义   
      hwndOldParent:HWND;
      hwndNotePad:HWND;将窗口的FormStyle设为fsMDIFormprocedure TForm1.Button1Click(Sender: TObject);
    begin
      hwndNotePad:=FindWindow(PChar('Notepad'),0);//句柄。既然你已知句柄，此句可略
      hwndOldParent:=GetParent(hwndNotePad);
      Windows.SetParent(hwndNotePad,Panel1.handle);
    end;procedure TForm1.FormDestroy(Sender: TObject);
    begin
      Windows.SetParent(hwndNotePad,hwndOldParent);
    end;
      

  2.   

    上面是回答你的问题 2 。其中这句改了一下：  hwndNotePad:=FindWindow(nil,PChar('无标题 - 记事本'));//以一个记事本窗口的句柄做测试
      

  3.   

    给分，谢谢， 关键SetParent函数让我找了好久。
      

  4.   

    我反窗體載進去之後,在panel里看不到任何東西,為什麼啊???
      

  5.   

    我把窗體載進去之後,在panel里看不到任何東西,為什麼啊???