wolfAone的意见,不过缓梁还有一个办法,你的程序里面这个打不开的窗口,里面还有一个扩展名顷模为.~dfm的,你把它还原为.dfm然后,再打开试试。这是个备份的文雀哪缓件!
delphi 语言中,终止执行、跳出循环,大明使用如下代码:Exit //退出本过睁仿雹程,继续执行调用些过程后的代码
Abort //退出悉帆本过程,但过程中异常处理部分的代码仍会执行
通常使用 Exit 在 procedure 或是 function 中执行跳出过程或是函数体。
如果需要直接中止程序,可以使用 Application.Terminate。
SelectForm:=Tfrom2.Create(Self)这句的意思是根据Tfrom2类创建一个名叫“SelectForm”的窗体对象,后来却在反复 *** 轮虚作From2,From2创建过么?
这猛桐笑不报错才是怪事呢!
如果是from2:=Tfrom2.Create(Self)这样还报错的话
你试试把from2.Parent:=Panel1这一句注释掉。
其实,最好不枝含要用close的方式,因为会导致你多次开关窗体时 if from2=Nil Then这句有问题,close以后默认并不会置nil。还是hide和show这样的方式比较稳妥。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)