在dll窗体中,在弹出对话框后关闭dll窗口,第一次关闭正常,再次调用dll窗体时,弹出对话框后关闭dll窗口,应用程序也关闭了,请问这是为什么;DLL中:Procedure ShowForm(Apphandle:Thandle);stdcall;
Begin
Application.handle :=Apphandle;
With TForm1.create(application) do
try
showmodal;
Finally
free; End;End; procedure TForm1.Temp(i,j:integer)
Begin
IF I >J THen
Begin
Application.MessageBox('出错',' 错误',mb_iconinformation or mb_ok);
Application.Terminate ;//注:可以关闭DLL窗体,但第二次就连应用程序也关了
Form1.Close; //注:用它关闭,DLL窗口不能关闭,没反应;
End;
End;
Begin
Application.handle :=Apphandle;
With TForm1.create(application) do
try
showmodal;
Finally
free; End;End; procedure TForm1.Temp(i,j:integer)
Begin
IF I >J THen
Begin
Application.MessageBox('出错',' 错误',mb_iconinformation or mb_ok);
Application.Terminate ;//注:可以关闭DLL窗体,但第二次就连应用程序也关了
Form1.Close; //注:用它关闭,DLL窗口不能关闭,没反应;
End;
End;
解决方案 »
- 关于treenode.data的问题。
- 求助:各位大哥怎么把 bmp ,gif 图片转换为二进制,然后又转换回来?谢谢!(马上送分)
- MDI主窗体中把主菜单放到了CoolBar中,但是打开MDI子窗体后,如果最大化它,窗体右侧不出现三个按钮,如何解决?
- 如何闭频掉“请将磁盘插入驱动器A”这个对话筐?
- DBnavigator的确认删除对话框能不能换成自己设计的啊?
- ********************如何判断指定目录下有没有文件?***************
- 求delphi的打包程序(包括打包数据库)
- 服务器之间Web通信问题
- 初学者如何入门?来着有分
- 请问如何使使程序在空闲时运行某个函数?
- delphi和mysql能连接吗?高手请进!!
- 一个小问题,Unit not found: 'System.pas' or binary equivalents (DCU,DPU)
//不能写Form1,要么不写,要么写Self
Begin
IF I >J THen
Begin
Application.MessageBox('出错',' 错误',mb_iconinformation or mb_ok);
//Application.Terminate; 如果I > J,那么应用程序先关掉了,下一句根本就没有执行
Form1.Close; //注:用它关闭,DLL窗口不能关闭,没反应;
End;
End;
這句就有問題!