关于敲击回车程序崩溃的问题
我做了个程序,在一个程序中的面板上显示其他窗体,结果在显示出窗体后,敲击回车,程序就崩溃掉了。
部分代码如下:
//将Panel上的所有窗体都关闭并释放
try
for intI:=0 to Pl_Item.ControlCount-1 do
begin
if ((Pl_Item.Controls[intI])is TForm ) then
begin
//如果不是查询窗体,则关闭并释放
if (((Pl_Item.Controls[intI])<>Frm_Query)and((Pl_Item.Controls[intI])<>Frm_StatQuery)) then
begin
((Pl_Item.Controls[intI])as TForm ).Close;
((Pl_Item.Controls[intI])as TForm ).Free;
break;
end;
end;
end;
except
end;
//创建窗体并显示到面板上
Form := Form.Create(Application);
Form.parent:=pl_Item;
Form.BorderStyle:=bsNone;
Form.Align:=alclient;
Frm_ItemInfo.Show;
============
我怀疑是这里的问题,因为不是嵌套窗体都不存在这个问题,请高手帮忙,万分感谢