紧急求助！我做的一个activeform控件，操作work文档，关闭word的时候如果有改动，word自身提出是否保存，我想用delphi在保存文档以后上传文档

紧急求助！我做的一个activeform控件，操作work文档，关闭word的时候如果有改动，word自身提出是否保存，我想用delphi在保存文档以后上传文档，但如果word再关闭的时候提示保存的话，我捕捉不到保存的事件，如果哪位知道该怎么办，请相告，急，在线等待！非常感谢！！ ( 积分: 200 )<br />紧急求助！我做的一个activeform控件，操作work文档，关闭word的时候如果有改动，word自身提出是否保存，我想用delphi在保存文档以后上传文档，但如果word再关闭的时候提示保存的话，我捕捉不到保存的事件，如果哪位知道该怎么办，请相告，急，在线等待！非常感谢！！

紧急求助！我做的一个activeform控件，操作work文档，关闭word的时候如果有改动，word自身提出是否保存，我想用delphi在保存文档以后上传文档，但如果word再关闭的时候提示保存的话，我捕捉不到保存的事件，如果哪位知道该怎么办，请相告，急，在线等待！非常感谢！！

跟踪调试
--------签名档---------------------------

比肩国内顶尖源码下载站点 -> 源码我爱你

http://www.source520.com
http://www.source520.net

80G源码电子书免费免注册下载,大量精辟技术文档库随时更新
******************************************************************
附:为了站点持续发展,现有本站近年来收藏的大量大型商业源码低价出售,
详情请进入以下链接查看:
http://www.source520.com/building_delphi.htm

浏览商业代码请从如下URL进入查看实物:
1.商业源码库1: ftp://source520see3:browse@61.152.199.245/
2.商业源码库2: ftp://source520see2:browse@61.152.199.245/

WordApplication1.DisplayAlerts := false; //屏蔽提示

然后，无论有没有修改，你都执行下保存动作，这样，比较简单

关键是如果没有保存我不想上传呀，你看如果在关闭的时候，已经做过修改，但提示框里我没有选择保存，这时我不想上传，这种情况下，你说怎么办，照你所说，关闭的时候这个提示框不弹，无论保存与否我均上传，不太好，还有没有其它的好方法

还有一点，如果我想用Delphi自身的提示对话框，怎么让它再关闭询问的时候显示在word文档的前面，我用了self.bringtofront，可是它只有在第二次打开文档的时候才提示在前面，第一次不行，这个段我在下载的时候就执行了，可还是不行，各位有没有好的方法呢？
我在线等待，非常感谢！！！

将你的代码贴出来， 我看 word 有 一个 saved 属性可以用。

procedure TActFArch.wdClose(Sender: TObject);
begin
if ifSave then
begin
wa.UserName:=UserName;
wa.ActiveDocument.Save;
UploadFile(LocalFileUrl,TargetPageUrl);
end
else if ifChange then
begin
self.BringToFront;
if Ask('是否保存对'+sFile+'的更改')=IDYES then
begin
wa.UserName:=UserName;
wa.ActiveDocument.Save;
UploadFile(LocalFileUrl,TargetPageUrl);
end;
end;
wd.Disconnect;
wa.Disconnect;
end;

这个是在worddocument close时触发的，提示框不在word窗口的前面