难题，高手请进

[linjie208]

在Tpanel上创建窗体，代码如下：
function TBaProdAsk.openwindow(Apanel: TWinControl; flag: string): TForm;
var
formclass: tformclass;
form: TForm;
ls_window: string;
begin
ls_window := flag;
formclass := tformclass(findclass(ls_window));
form := formclass.Create(nil);
form.BorderStyle := bsNone;
Height := form.Height;
Width := form.Width;
form.Parent := Apanel;
form.Align := alClient;
form.Show;
Result := form;
end;

当运行到form.parent:=Apanel时报错，
错误为：Access volilation at address 77F99A5C in module 'ntdll.dll'.
write of address 00404DC9
请指点问题所在

[miky]

当运行到form.parent:=Apanel时报错，
你Apanel Create了没有？

[linjie208]

Apanel是作参数传给函数的，肯定早就创建了

[apache57]

试试把FORMdock到PANEL如何？
APanel.DockSite := true;
form.Dock(APanel,Rect(0,0,APanel.width,APanel.Height)）

[tresss]

form:=formclass.create(apanel);
form.parentwindow:=apanel.handle;
form.Align := alclient;
form.show;

[linjie208]

问题还没解决，请高手帮忙