您的位置：程序门 -> delphi -> 网络通信/分布式开发

退出delphi 总是报错请高手指点

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

退出delphi 总是报错请高手指点

发表于：2008-01-12 10:46:10 楼主

function showinfo（msg: string; imode: integer):integer;
begin
case imode of
1: result:=application.messagebox（pchar（msg+' '),'提示信息',mb_ok);
2: result:=application.messagebox（pchar（msg),pchar（application.mainform.caption),mb_yesno+mb_iconquestion);
3: result:=application.messagebox（pchar（msg+' '),'错误信息',mb_ok);
4: result:=application.messagebox（pchar（msg+' '),'警告信息',mb_ok);
else result := 0;
end;
end;

procedure tfmain.formclosequery（sender: tobject; var canclose: boolean);
begin
canclose := false ;
if showinfo（globalerror.exitconfirm,2)= idyes then //messagebox 与托盘冲突导致系统变慢
begin
//关闭10000端口监听
idudpclient.active := false ;
idudpservermain.active := false;
for i:= 0 to self.mdichildcount-1 do
self.mdichildren[i].close ;
//设置窗体风格
if curskinindex <> regskinindex then
begin
wirteregedit（'skinindex', encrypt（inttostr（curskinindex),256));
end;
canclose := true ;
end;
end;

发表于：2008-01-18 16:49:391楼得分:0

帮顶

发表于：2008-01-18 17:16:012楼得分:0

是delphi报错还是程序报错。

procedure tfmain.formclosequery（sender: tobject; var canclose: boolean);
begin
canclose := false ;
if showinfo（globalerror.exitconfirm,2)= idyes then //messagebox 与托盘冲突导致系统变慢
begin
//关闭10000端口监听
idudpclient.active := false ;
idudpservermain.active := false;
application.processmessage;
for i:= 0 to self.mdichildcount-1 do
self.mdichildren[i].close ;
//设置窗体风格
if curskinindex <> regskinindex then
begin
wirteregedit（'skinindex', encrypt（inttostr（curskinindex),256));
end;
canclose := true ;
end;
end;

你这个跟踪下，应该很容易找出问题

下一篇：delphi7 邮件接收body乱码
上一篇：如何捕获clientsocket连接是否成功???

其他资讯

您的位置：程序门 -> delphi -> 网络通信/分布式开发

退出delphi 总是报错 请高手指点

退出delphi 总是报错请高手指点