2
203010
Unregistered / Unconfirmed
GUEST, unregistred user!
TWordApplication.OnDocumentBeforeSave问题
procedure TForm1.WordApplication1DocumentBeforeSave(Sender: TObject;
var Doc, SaveAsUI, Cancel: OleVariant);
begin
SaveAsUI := 0;
Cancel := 1;
end;
我想阻止Word的保存自己处理,可上面的代码不起作用,我不要Word弹出保存的对话框
procedure TForm1.WordApplication1DocumentBeforeSave(Sender: TObject;
var Doc, SaveAsUI, Cancel: OleVariant);
begin
SaveAsUI := 0;
Cancel := 1;
end;
我想阻止Word的保存自己处理,可上面的代码不起作用,我不要Word弹出保存的对话框