Question

DELPHI中如何不设置控件的Parent属性而显示控件

例如：
a: TButton
a := TButton.CreateParented(PatentHande);
a.left := 1;
a.top:= 1;
a.show;
一般情况下要设置
a.parent := Self;
Self为当前窗体，设置了该属性后控件才能显示，否则不能显示。我现在只能获得父容器的句柄，而不能获得父容器的CObject*，所以设置不了parent属性。有没有那位高人可以不设置parent属性让控件显示啊。

Answer 1

Panel: TPanel;
Panel := TPanel.CreateParented(PatentHandle);
a := TButton.CreateParented(PatentHande);
a.Patent := Panel;
这样控件就能在VC中的FormView上显示了，但控件和FormView之间就又多了一层Panel。大家看看有没有更直接的方法可以实现的。

Answer 2

//hWndChild 子窗体的句柄
//hWndNewParent 新的父窗体句柄
//Windows. 是必需的
Windows.SetParent(hWndChild, hWndNewParent);

追问

在a := TButton.CreateParented(PatentHande);
函数中就已经指明了控件的父容器句柄为PatentHande了，不用再写SetParent函数了，而且加了SetParent函数后还是显示不了控件，非得设置控件的Parent属性才行。

追答

Windows.SetParent 是API 函数，你试过了吗？一定要带 Windows的

追问

我试过了，还是不能显示控件。我在论坛上看到很多人都说过VCL的控件必须要指明Parent属性才能显示，所以我先创建了一个Panel，而Panel是不用设置Parent属性的，然后将控件的Parent属性设置为Panel就可以显示了

追答

谁说“Panel是不用设置Parent属性”？
constructor Create(AOwner: TComponent); override;
这是 TPanel 的构造函数，AOwner 参数就是 Parent 。

我一直都是使用这个函数的，都可以很正常的把自己的组件嵌入到其它程序里面。

如果这个函数在你那里不行，那可能是 MFC 的缘故了。

Answer 3

如果你的父容器可以显示的话，那么你将a.parent就是设置为这个容器不行吗？

追问

我的父容器是一个MFC中的FormView，它的类型是CWnd的啊，我现在是要在MFC中用到DELPHI的表盘控件，因为MFC中没有，我自己不会做表盘，而且就算用C++写了一个表盘的程序也不知道稳定不稳定，所以想将Delphi中的表盘贴在MFC的FormView上