我用的mdi与子窗口,子窗口都是动态创建的,在子窗口的formclose事件中写的是
stu_query.Free ;
mainform.n6.Enabled :=true; 其中stu_query是这个窗口的名字
可是我在子窗口加一个退出的按钮,同样用这个语句就不行了,程序错误条到了工程文件的地方,我的工程文件是这样的
Application.Initialize;
logform:=Tlogform.Create(Application);
Application.CreateForm(Tmainform, mainform);
Application.CreateForm(Tswrite, swrite);
mainform.Show ;
if logform.ShowModal =mrok then
begin
logform.Free ;
Application.Run;
end
else
begin
application.Terminate ; //Application.CreateForm(TForm2, Form2);
Application.Run;
end
谢谢高手知道啊
stu_query.Free ;
mainform.n6.Enabled :=true; 其中stu_query是这个窗口的名字
可是我在子窗口加一个退出的按钮,同样用这个语句就不行了,程序错误条到了工程文件的地方,我的工程文件是这样的
Application.Initialize;
logform:=Tlogform.Create(Application);
Application.CreateForm(Tmainform, mainform);
Application.CreateForm(Tswrite, swrite);
mainform.Show ;
if logform.ShowModal =mrok then
begin
logform.Free ;
Application.Run;
end
else
begin
application.Terminate ; //Application.CreateForm(TForm2, Form2);
Application.Run;
end
谢谢高手知道啊
解决方案 »
- 子窗体如何设置障碍
- 大数据量的计算速度问题
- CLientDataSet 的排序问题! 分不是问题
- 如何实现不显式使用TDataSetProvider或TProvider控件?
- 好心人,进来看看!小弟快沉了,帮帮忙,谢谢了!
- 如何在汇编连接调用汇编编译后BIN文件,谢谢
- 求DELPHI 6.0下载
- delphi中调用word和瑞星有冲突 如何解决?
- 帮我看一个delphi 调用 idftp 让FTP上传的例子,错误在哪??
- 300分求助:1.怎样用BDE动态改变DBASE数据库的表结构,Bdi?2.怎样在DBASE数据库中真真地插入一条记录?
- 有谁做过SQLSERVER 的复制和定阅啊?给点意见啊!
- 调用一个过程为变理赋值的问题!
logform:=Tlogform.Create(Application);
if logform.ShowModal =mrok then
begin
logform.Free ;
end else exit Application.CreateForm(Tmainform, mainform);
Application.CreateForm(Tswrite, swrite);
Application.Run;
end
stu_query.Free ;
mainform.n6.Enabled :=true; 一点事情都没,我真不明白
报的错是什么呢?
子窗体中加入一个退出按键,这个按键的OnClick是怎么写的?
你是用什么方式退出的?是点你加入的这个退出按键,还是窗口右上角的“关闭”的小叉?还有,不管你用了什么方法,在窗体的事件中调用Free来释放自己是错误的,应该用Action := caFree