怎样使用setparent,getparent设置子窗体父窗体?
请问我使用下面的怎么不可以把autocad的窗口放到delphi的一个form里面?错在哪里啊?
procedure TForm1.Button1Click(Sender: TObject);
var
AcadApp : OleVariant;
phwnd:hwnd;
chwnd:hwnd;
begin
AcadApp := CreateOleObject('AutoCad.Application');
AcadApp.visible := true; //这里是对的
phwnd:=GetParent(GetParent(acadApp.Activedocument.hwnd));
chwnd:=form1.Handle ;
if phwnd = null then
exit
else
setparent(phwnd,chwnd);
end;