Also so richtig klappt das mit OnQuit nicht.
Man bekommt trotzdem die SaveAs Möglichkeit ...
Irgendwie ist das alles ohne Doku schon ein ganz schönes Kreuz
und diese VB Hilfe ist ja auch nicht so das wahre ....
Delphi-Quellcode:
procedure TfrmAngebotstool.WordApplicationAngebotDocumentBeforeSave(
Sender: TObject; var Doc, SaveAsUI, Cancel: OleVariant);
begin
SaveAsUI:=FALSE;
Cancel:=TRUE;
// ShowMessage(' Speichern ist hier nicht erlaubt !');
end;
procedure TfrmAngebotstool.WordApplicationAngebotOnQuit(Sender: TObject);
var
Save: OleVariant;
begin
Save := FALSE;
WordApplicationAngebot.Quit(Save);
WordApplicationAngebot.Disconnect;
end;
[Edit=Sakura]Delphi-Tags gesetzt[/Edit]